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1 .  Introduction 


During  the  past  several  years  of  production  at  Rock  Island  Arsenal, 
approximately  of  all  submitted  material  nonconformances  have  directly 
involved  thread  forms.  Variations  in  minor,  pitch,  aund  major  diameters 
along  with  other  geometry  considerations  in  V,  Acme,  Buttress,  and  special 
thread  forms;  may  adversely  affect  the  assembly,  life,  and  strength  of 
a  given  thread  joint.  Nonconforming  parts  have  ranged  from  common  fast¬ 
eners  under  static  loading  to  recoil  yokes  and  piston  adapters  subjected 
to  enormous  weapon  firing  loads.  The  cost/ scheduling  impact  and  critical 
function  requirements  have  established  a  crucial  need  for  a  rapid  and 
reliable  thread  joint  evaluation  method. 

Thread  analysis  procedures  to  date  include  (1)  Precedent  Method, 

(2)  Thread  Class  Substitution,  (3)  Routine  Stress  Analysis,  and  (4)  Testing. 

The  Precedent  Method,  as  the  name  implies,  bases  a  thread  nonconform- 
2uice  evaluation  on  previous  evaluations  of  similar  types  under  similar 
loading  and  environmental  conditions,  where  these  results  may  be  derived 
from  calculations,  experiments,  or  experience.  This  method  is  practical 
and  effective,  being  employed  whenever  a  reasonable  and  verifiable 
precedent  case  can  be  found.  The  quantitative  "how  much"  or  "how  bad" 
cinswers,  however,  must  be  obtained  by  other  meeins. 

The  Class  Substitution  Method,  somewhat  similar  in  philosophy  to 


the  Precedent  Method,  uses  the  tolerance  variations  within  thread  class 
specifications  as  a  criterion  for  acceptance.  The  method  is  primarily  a 
"rule-of-thumb"  approach  and  also  lacks  quantitative  accessment  of  thread 
joint  performance.  The  Class  Substitution  Method,  used  only  occasionally 
for  criticad  fit  applications,  does  have  the  distinct  advantage  of  pro¬ 
viding  distinct  documented  limits,  but  is  generally  so  conservative  as  to 
disqualify  thread  conditions  that  still  possess  adequate  strength. 

Routine  Stress  Analysis,  using  the  more  readily  available  textbook 
references,  serve  to  provide  quantitative  analysis  of  limited  accuracy, 
being  based  on  several  simplifying  and  gross  assumptions.  Highly 
detailed  stress  results,  leading  to  more  accurate  analysis,  is  not 
a  simple  exercise  and  must  generally  be  conducted  by  persons  having 
that  specialized  discipline.  Usually,  evaluation  response  time  for  a 
given  occurance  precludes  this  type  of  in-depth  analysis. 

The  testing  approach,  used  sparingly  due  to  cost  and  time  constraints, 
offers  perhaps  the  most  accurate  emd  verifiable  means  of  analyzing  thread 
nonconformances.  Testing  as  a  sole  means  of  evaluation,  however,  would 
require  experimental  recreation  of  exact  geometry  and  loading  conditions 
per  given  nonconfornieince .  More  general  experiments  designed  to  evaluate 
"trends"  due  to  certain  geometry  euid  load  conditions  can  provide  useful 
«ind  interesting  results,  but  seldom  provide  the  required  degree  of  accuracy. 


An  alternative  evaluative  method,  which  is  being  documented  in  this 
report,  involves  development  of  three-dimensional  state-of-stress  equations 
using  specific  thread  geometry  relatJ  unships  and  Heywood's  formula.  Thorough 
literature  research  on  thread  analysis,  both  domestic  and  foreign,  have 
confirmed  and  further  refined  this  analytical  approach  to  solve  joint 
strength  of  nonconforming  threads.  However,  as  with  any  analytical  solution, 
several  key  assumptions  were  required  to  simplify  complicated  geometries 
and  loading  conditions.  Some  experimental  data  adopted  from  literatures 
and  mathematical  model  were  integrated  into  an  interactive  computer  program 
for  solution  of  user  supplied  thread  geometry,  applied  loads  and  material 
property  parameters.  In  this  report,  both  static  analysis  and  fatigue 
analysis  were  provided  under  assumption  of  elasticity. 
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2.  Thread  Geonetry 


A  screw  thread  is  a  complex  configuration  ccanprised  of  several  elements 
and  characteristics.  According  to  definition  of  FED-STD-H28  (1)  auid  ANSI  B1 
(2)  handbooks,  a  screw  thread  is  a  ridge,  usually  of  uniform  section  and 
produced  by  forming  a  grove  in  the  form  of  a  cylinder.  (Taper  thread  is  not 
included  in  this  report.)  A  thread  is  a  portion  of  a  screw  thread  encompassed 
by  one  pitch.  On  a  single-start  thread  it  is  equal  to  one  turn. 

There  aire  several  basic  thread  forms  such  as  V  thread.  Acme  thread. 
Buttress  thread,  square  thread  and  special  thread  such  as  Watervliet  20/45 
modified  Buttress  thread.  Due  to  loading  conditions  and  applications, 
threads  are  identified  with  thread  type,  thread  series,  size,  fit  or  class, 
and  some  special  specifications.  Figure  2.1  shows  a  typical  thread  geometry. 
For  detail  definition,  geometry,  allowance,  tolerance  and  limit  of  size  of 
thread  forms,  FED-STD-H28  and  ANSI  B1  handbooks  are  reconinended .  Typical 
thread  forms,  thread  series  and  classes  are  listed  as  follow; 

UNC;  Unified  coarse  thread.  Classes- 1 A, 2A,3A, IB, 2B  and  3B. 

UNF;  Unified  fine  thread,  Classes-1A,2A,3A, 1B,2B  and  3B. 

UNEF;  Unified  extra  fine  thread,  Classes-1A,2A,3A, 1B,2B  and  3B. 

UNM;  Unified  miniature  thread 

UNJ;  Unified  controlled  root  radius  thread,  ANSI  B1.15. 

UNR;  Unified  controlled  root  radius  thread,  ANSI  B1.14. 
4UN,6UN,8UN,12UN,16UN,20UN,28UN  and  32UN;  Unified  thread. 
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Classes-1A,2A,3A,1B,2B  and  3B. 

ACME:  Acme  thread,  two  general  applications  for  Acme  thread  used  chiefly  for 
purpose  of  producing  traversing  motions  on  machines  and  tools.  Acme 
thread  is  divided  into  three  general  classes,  2G,3G  and  4G,  and  five 
centralizing  classes,  2C,3C,4C,5C  and  6C. 

STUB  ACME:  Used  for  unusual  applications  pertinent  to  Acme  thread  but  where 
a  coarse  pitch  or  shallow  depth  is  required.  While  no  class  callout, 
the  Stub  Acme  corresponds  to  class  2G  of  the  Acme  thread. 

BUTT  and  PUSH-BUTT:  Buttress  thread  for  pull  or  push  type,  used  where  high 
stresses  are  along  the  thread  axis  in  one  direction  only. 

Classes- 1A,2A,3A,1B,2B  and  3B. 

Thread  design  is  to  a  large  extent  empirical  and  is  partially  based  on 
previous  experience  with  similar  designs  and  the  judgment  of  the  designer. 

The  interrelation  of  length  of  engagement,  minimum  major  diameter  of  the 
external  thread,  maximum  minor  diameter  of  the  internal  thread,  and  the 
strength  of  the  assembled  thread  needs  to  be  understood  and  carefully 
considered  in  order  to  produce  the  optimum  design  of  a  special  thread.  It 
is  not  economical  to  use  either  a  length  of  thread  engagement  which  is  longer 
than  required  or  shorter  than  that  which  will  develop  the  full  strength  of 
the  externally  threaded  member.  Other  factors  such  as  loading  conditions 
and  geometry  restrictions  required  careful  analysis  and  adjustment  of  the 
design  with  respect  to  selection  of  the  diameter-pitch  combination,  the  class 
of  thread,  length  of  engagement,  and  minor  and  major  diameter  tolerances. 
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3.  Theoretical  Background 


3.1  Failure  Modes 

The  screw  thread  is  one  of  the  machine  elements,  in  the  form  of  a  nut 
and  bolt  or  stud,  which  have  widespread  application  for  virtually  every  machine 
and  structure.  A  screw  thread  differs  from  a  conventional  cylindrical  notched 
specimen  in  that,  firstly,  a  screw  thread  consists  of  a  series  of  adjacent 
notches  and,  secondly,  the  load  is  transmitted  through  the  stress  con¬ 
centration,  that  is,  the  nut  transmits  the  load  to  the  bolt  through  the 
flank  and  root  radius  of  the  thread.  The  threaded  connections  are,  in 
general,  subjected  to  tension,  compression,  shear,  bending  and  torsion, 
statically  and  dynamically.  Torsional  stress  is  presented  in  the  threaded 
connection  during  tightening,  however,  the  threaded  connection  will  unwind 
slightly  during  the  initial  period  of  operation  under  dynamic  loading, 
cuid  relieve  the  torsional  stress.  In  addition  to  the  stress  due  to  eucial 
loading  (tension  and  compression),  the  thread  contact  surface  transmits 
bending  stress  at  the  thread  roots. 

Thread  failure  modes  are  mainly;  (1)  shear  failure,  and  (2)  failure 
due  to  maximum  fillet  stress  at  thread  roots  subjected  to  unisucial  static 
or  fatigue  loadings.  Other  detrimental  factors  for  threaded  connections 
are  fretting  on  thread  contact  surface  and  eccentric  loading  conditions. 

Under  simple  tension  test  of  a  threaded  connection  with  thread  form 
manufactured  per  designed  specification,  the  failure  is  due  to  bending 
(or  maximum  fillet  stress).  However,  according  to  Smith  (3)t  the 


7 


truncated  or  deviated  threads  fail  in  bending  and  shear  where  the  degree 
of  failure  due  to  shear  increasing  with  the  amount  of  truncation.  Tha 
effect  of  deviation  or  truncation  on  thread  failure  strength  is  not  too 
great.  Tests  on  both  ground  and  rolled  threads  showed  that  a  reduction 
in  the  depth  of  engagement,  even  to  25%  of  normal,  caused  no  significant 
loss  in  fatigue  strength,  provided  that  the  truncation  was  either  divided 
equally  between  the  external  and  internal  thread  or  nearly  all  in  the 
internal  thread. 

Thread  surface  finish,  degree  of  lubrication,  accuracy  of  thread  form 
machining  and  material  of  thread  mmnbers  are  factors  which  relate  to  fretting 
and  galling.  When  a  threaded  connection  is  subjected  to  cyclic  loading,  fretting 
may  occur  along  the  thread  contact  surface.  As  the  fretting  area  is  remote 
from  the  region  of  maximum  fillet  stress,  according  to  Field  (4),  fretting 
plays  no  part  in  crack  initiation,  fatigue  cracks  grew  from  the  thread 
roots  not  from  an  area  of  fretting.  Eccentric  loading  condition  on 
threaded  connection  may  be  produced  by  inclination  of  the  oontact  face  of  the 
nut  and  the  adjacent  structural  member  or  by  deformation  of  the  structure 
under  the  working  loads.  The  eccentric  loads  will  introduce  additional 
bending  stress  to  the  thread  pressure  flank  axvi  increase  the  maximum 
fillet  stress  in  the  thread  root  area,  and  therefore  increase  the  chance 
of  failure  at  the  thread  root  area.  In  this  report,  fretting,  galling, 
and  eccentric  loading  conditions  will  not  be  considered. 


3.2  Load  Distribution  Along  Threaded  Connection 


The  distribution  of  thread  loads  along  a  threaded  connection  has  been 
studied  theoretically  by  Sopwith  (5).  A  thread  load  concentration  factor 
H  was  introduced  to  account  for  nonuniform  thread  load  distribution 
along  the  thread  helix.  This  factor  is  defined  as  the  ratio  of  the 
maximum  thread  load  per  inch  of  thread  helix  to  the  average  thread  load 
per  inch  over  the  entire  length  of  engagement  of  external  and  internal 
threads . 

The  experimental  study  on  this  topic  was  carried  out  by  Goodier  (6), 
Hetenyi  (7)  and  Chalupni  (8),  etc..  The  highest  thread  load  was  found 
at  the  external  thread  at  about  one  turn  in  from  the  loaded  face  of  the 
internal  thread.  This  occurred  because  the  load  carried  by  a  external 
thread  was  not  distributed  unifomly  between  the  mating  threads,  the 
first  engaged  thread  carrying  a  higher  percentage  of  the  total  thread 
load  than  succeeding  threads.  The  thread  load  concentration  factor  were 
estimated  varying  from  1  to  4.  This  factor  depends  on  coefficient  of 
friction  between  internal  eind  external  threads  and  thread  geometries, 
such  as  thread  form,  equivalent  outside  diameter  and  heigiit  of  internal 
thread  member,  hollow  diameter  in  external  thread  member,  pitch  zuid 
included  angle.  From  a  photoelastic  model  of  threaded  connection 
having  six  engaged  threads,  Cazaud  (9)  found  that  the  percentages  of 
the  external  thread  load  carried  by  the  first  and  subsequent  engaged 
threads  were  3^1  23,  16,  11,  9  and  7,  respectively.  The  thread  load 
concentration  factor  for  this  threaded  connection  is  2.04.  Both  theoretical 
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and  experimental  studies  were  perfonned  under  elastic  condition.  If  the 
external  loads  applied  to  the  thread  joint  causes  the  thread  root  regions 
to  deform  plastically,  the  resulting  thread  load  distribution  along  the 
contact  surface  will  become  more  uniform.  This  indicates  that  strength  of  a 
thread  connection  can  be  improve  by  prestressing  the  thread  connection  such 
that  the  material  at  thread  roots  region  must  to  be  equal  to  or  become  close 
to  yield  point. 

Threaded  connections  of  the  cannon  breech  mechanism,  consisting  of  breech 
ring,  breech  block  and  gun  tube,  were  studied  by  using  both  two  and 
three  dimensional  photoelasticity  methods  by  Marino  and  Riley  (10). 

Their  attempt  was  to  optimize  thread  root  contours  for  designing  cannon 
breech  mechanism.  In  the  breech  mechanism  the  breech  block  and  gun  tube 
have  external  threads,  whereas  the  breech  ring  threads  are  internal.  The 
threads  on  all  components  are  sectored  to  permit  quick  and  convenient 
assembly  of  the  parts. 

Experimental  data  from  3-dimensional  i^iotoelastic  test  for  breech 
block  with  standard  Buttress  thread,  the  mean  maximum  fillet  stress  at 
the  center  of  the  sector  is  6.16  times  p  (internal  pressure  applied  in  the 
breech  mechanism).  The  mean  maximum  fillet  stress  at  the  edge  of  thread 
sector  of  the  breech  block  is  7.45  times  p,  and  H  is  1.114.  For  breech 
ring  with  Buttress  thread,  the  mean  maximum  fillet  stress  at  the  center 
of  thread  sector  is  4.36  times  p,  and  H  is  1.69.  VAiereas,  the  mean  maxinun 
fillet  stress  at  the  edge  of  thread  sector  is  4.52  times  p,  and  H  is  1.66. 

In  the  similar  test,  3/8"  pitch  V  threads  were  tried  in  the  breech  mechanism. 


For  breech  ring  the  mean  maximum  fillet  stress  at  the  center  of  thread 
sector  is  3.3  times  p,  and  H  is  1.9,  while  the  mean  maximum  fillet  stress 
at  the  edge  of  thread  sector  is  3*6  times  p  and  H  is  1.7.  In  the  same 
report,  the  same  thread  forms  were  tried  and  load  distribution  along  the 
threaded  connection  were  compared.  The  thread  load  concentration  factor 
for  Buttress  thread  H  is  averaging  1.5  for  3-D  model,  while  for  2-D 
model  the  tnread  load  concentration  factor  H  is  2.48.  Obviously,  the 
thread  load  concentration  factor  in  3-D  model  is  smaller  than  that  in 
2-D  model. 

Dynamic  tests  on  full  scale  cannon  breech  mechanism  were  performed  by 
Weigie  and  Lasselle  (11).  In  the  test  a  peak  pressure  of  48,000  psi  and 
a  rise  time  of  3.45  msec  with  operation  at  a  rate  of  68-70  cpm  were 
applied.  Thread  forms  of  Buttress  thread,  V  thread  and  modified  20/45 
Buttress  thread  were  used  in  the  full  scale  dynamic  tests.  The  thread 
load  concentration  factor  H  was  estimated  to  be  1.4.  In  the  interactive 
computer  thread  stress  analysis  program,  the  default  value  of  thread  load 
concentration  factor  H  is  1.5.  However,  users  have  options  to  define 
H  value  ranged  from  1  to  4. 


3.3  Axial  Load 


The  threaded  connections  are  usually  subjected  to  uniaxial  loading. 

The  axial  loading  conditions  applied  to  external  thread  (bolt)  and  internal 
thread  (nut)  can  be  tension,  and/or  compression.  The  most  frequent  case  of 
threaded  connection,  however,  is  external  thread  under  tension  and  internal 
thread  under  compression.  In  this  case,  on  the  external  thread,  the  axial 
tensile  stress  tends  to  increase  the  tensile  fillet  stress  caused  by  thread 
load,  while  on  the  internal  thread,  the  axial  compressive  stress  tends  to 
drease  the  tensile  fillet  stress  caused  by  thread  load,  which  increases  the 
load  capacity  of  internal  thread.  This  is  why,  on  most  occasions  external 
occasion,  external  threads  (bolts)  fail  instead  of  the  internal  threads 
(nuts).  In  the  case  of  cannon  breech  mechanism,  both  external  thread  (breech 
block  and  gun  tube)  and  internal  thread  (breech  ring)  are  subjected  to 
tensile  stresses. 

For  axial  loading,  according  to  Neuber  (12)  and  Heywood  (13),  the 
maximum  elastic  stress  concentration  factor  occurring  in  the  vicinity 
of  a  row  of  grooves  is  not  so  great  as  that  created  by  a  single  groove 
of  the  same  geometry.  The  difference  depending  on  the  specimen  and 
groove  geometries  and  the  distance  between  adjacent  grooves.  With 
multiple  grooves,  Neuber  considered  that  the  reduced  stress  concentration 
factor  may  attributed  to  a  small  effective  depth  of  groove.  In  addition, 
the  stress  concentration  factor  for  thread  forms  depend  on  included 
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angle  (o(+^),  equivalent  outside  diameter  (Do),  minimum  major  diameter 
(Dimin)  of  the  internal  thread,  inside  (hollow)  diameter  (d),  and  minimum 
minor  diameter  (Kemin)  of  the  external  thread.  The  stress  concentration 
factor  for  a  row  of  thread  forms  at  the  boundary  of  the  thread  root,  in 
general,  can  be  expressed  as 

Ka(^)=1+f(9l.+^  rh/R, (Kemin-d)/(2rh)  or  (Do-Dimin)/(2rh) ,Cos2 ®  )  (3*3*1) 

0.7 

where  r=0.3(P/h)  ,  r  is  a  factor  less  than  unit,  h  is  the  thread  height, 

R  is  the  thread  root  radius  and  @  is  an  angle  in  degree  measured  from  the 
bottom  of  the  thread  root.  It  is  observed  that  for  standard  thread 
(Kemin-d)/(2rh)  and  (Do-Dimin)/(2rh)  are  always  greater  than  1.0.  From 
Neuber's  nomographs  (12),  the  stress  concentration  factor  (Kae(0))  of 
external  thread  due  to  axial  load  can  be  calculated  by  the  equation 


Kae(9)=lH 


i  1+2.4(R/rh) 

1.25(Kl-1)((Kerain/2R)  -1)(1-(<pt+|S)/l80)  )Cos2(9 


2  i  2  i 

((K1-1)  +1.5625((Kemin/2R)  -1)  ) 


(3*3*2) 


0.6(rh/R)  (6((Kerain-d)/2R)  -1) 

where  K1=  - 

i  2  i 

(4rh/R+0.09(6((Kerain-d)/2R)  -1)  ) 


(3*3*3)* 
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Similarly,  the  stress  concentration  factor  (Kai(6))  of  internal  thread 
due  to  axial  load  can  be  calculated  by  the  equation 


Kai(d)  =  U 


5 

i  1+2.4(R/rh) 

(K2-1)(1.667(Dimin/2R)  -0.5)( l-(fct+^)/l80)  )Cos2 5 


2  5  2^ 

((K2-1)  +(1.667(Dimin/2R)  -0.5)  )  (3-3.^) 


5  2 

0.6(rh/R)  (6( (Do-Dimin)/2R)  -1) 

where  K2=  - 

1  o  > 

5  ^5 

(4rh/H+0.09(6((Do-Dimin)/2R)  -1)  ) 


(3.3.5). 


The  fillet  stress  at  the  thread  root  area  due  to  axial  load  (W)  will 
be  the  product  of  the  stress  concentration  factors  (Kae  or  Kai)  and 
nominal  axial  stress.  The  stresses  of  external  and  internal  threads  at 
fillet  contour's  due  to  axial  (tensile  or  compressive)  loading  can  be 
calculated,  respectively,  by 


(3.3.6) 


2  2 

3t(6)=Kae(6)  W  (4/7L)/(Kemin  -d  ) 
and 

2  2 

St(e)=Kai(e)  W  (n/7j^)/(Do  -Dimin  )  (3.3-7). 

The  raaximiim  stresses  take  place  at  bottom  of  the  thread  root  (0=0) , 
such  that  Kae(0)=Kae  and  Kai(0)=Kai. 


3.4.  Shear  Failure 


Thread  shear  failure  is  caused  by  excessive  loading  on  the  thread 
contact  surface.  Shear  stress  aind  effective  shear  area  are  dependent  upon 
the  relative  tensile  strength  of  the  material  of  the  external  and  internal 
threads.  The  formula  for  shear  stress  is 

Ss=  W/As  (3.4.1) 

where  W  =Total  axial  load,  and  As=Shear  area.  Total  length  of  thread 
engagement  helix  at  a  projection  diameter  x  can  be  expressed  as 

2  25 

L(x)=n*Le-((7i:x)  +P  )  (3.4.2) 

where  Le=Length  of  thread  connection  axial  engagegement 
n=Number  of  threads  per  inch 
P=l/n,  Pitch. 

When  the  external  eind  internal  threads  are  manufactured  from  materials 
of  equal  unit  tensile  strength  and  shear  failure  vxicurs,  the  failure  will 
usually  take  place  simultcineously  in  both  threads  at  or  close  to  the  basic 
pitch  diameter.  The  shear  area  will  be 
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As=L(E)/(2n) 


(3.4.3)  . 


When  the  tensile  strength  of  the  external  thread  material  greatly  exceeds 
that  of  the  internal  thread  material,  shear  failure  will  usually  take  place 
in  the  internal  thread  at  or  close  to  minimum  major  diameter  of  the  external 
thread.  The  shear  area  will  be 

As=0.5  L(Demin)  (P+(Tan  +Tan  ){Danin-Eimax) )  (3.4.4) 

where  Deinin=Minimum  major  diameter  of  external  thread 
Eimax=Maximum  pitch  diameter  of  internal  thread. 

When  tensile  strength  of  the  internal  thread  material  greatly  exceeds 
that  of  external  thread  material,  shear  failure  will  usually  take  place  in 
the  external  thread  at  or  close  to  maximum  minor  diameter  of  internal  thread. 
The  shear  ar^  will  be 

As=0.5  L(Kimax)  (P+(Tan  +Tan  ) (Eemin-Kimax) )  (3.4.5) 

where  Kimax=Maximum  minor  diameter  of  internal  thread 
Eemin=Minimum  pitch  diameter  of  external  thread. 


3.5  Preload 


Tightening  and  preload  are  reconmended  on  some  threaded  connections 
due  to  mechanical  or  structural  design  criteria,  such  as  functional 
aind  strength  requirements.  Statically,  preloads  improve  locking  effect 
of  the  thread  joint.  For  example,  sufficient  tensile  preload  is  required 
in  pipe  flange  bolts  to  overcome  the  longitudinal  forces  caused  by  the 
pressure  in  the  piping,  so  that  the  flanged  connection  does  not  leak. 

A  similiar  probl«n  is  faced  in  tightening  the  nut  on  the  cylinder  head 
of  an  engine  block,  so  that  the  studs  are  all  stressed  equally  and  to  a 
tension  that  precludes  leakage.  If  the  threaded  connection  subjected 
to  cyclic  loading,  preload  reduces  the  ratio  of  alternating  stress  (Sa) 
to  mean  stress  (Sm)  and  that  improves  the  fatigue  resistance  of  the 
threaded  connection,  according  to  the  fatigue  fracture  critertia  in 
Sa-Sm  diagram. 

Preload  is  reconmended  only  for  the  material  of  threaded  connections 
with  a  stress-strain  curve  in  which  there  is  no  clearly  defined  yield 
point  and  progresses  smoothly  upward  until  fracture.  For  the  described 
material,  proof  load  is  defined  as  the  maximum  load  applied  to  the 
material  without  creating  permanent  deformation.  For  static  loading 
conditions,  the  torsional  stress  due  to  preload  disappears  after 
tightening,  if  the  strain  of  the  material  pass  plastic  yielding. 
Therefore,  the  minimum  preload  is  reconmended  as  90$  of  the  proof  load. 


and  takes  the  fonn 


Fp=0.9SyAt  (3.5.1) 

vrtiere  Sy  is  the  yield  stress  and  At  is  the  stress  area  of  the  threaded 
connection.  According  to  Federal  Standard  H-28  handbook,  for  steel  parts 
with  tensile  strength  up  to  180  ksi,  the  stress  area  is  computed  from 
the  following  formula: 


2 

At=(^A)(E-3hA)  (3.5.2) 

where  E  is  basic  pitch  diameter  and  h  is  the  thread  height.  A  threaded 
connection  subjected  to  slight  movements  will  cause  flattening  of  high 
spots,  paint  or  dirt  and  will  relieve  the  torsional  friction.  Thus, 
if  the  threaded  connection  does  not  fail  during  tightening,  there  is 
a  very  good  chzince  that  it  will  never  fail  under  static  loading  condition. 
For  cyclic  loading  condition,  care  must  be  taking  for  deciding  direction 
of  preload.  According  to  Juvinall  (1M),  an  overload  causing  yielding 
produces  residual  stresses  which  are  favorable  to  future  overloads  in  the 
same  direction  and  unfavorable  to  future  overloads  in  the  opposite 
direction.  Apply  preload  only  in  the  direction  of  auiticipated  service 
loads. 

Torque  required  to  provide  the  specified  preload  for  thread  joint 
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TrKpFpD 


(3.5.3) 


where  Kp  is  torque  coefficient,  and  D  is  major  diameter  of  the  threaded 
connection.  According  to  Shigley  (15),  Blake  and  Kurtz  (16),  no  matter 
what  size  and  condition  of  lubrication  of  the  threaded  connection, 
the  torque  coefficient  Kp  can  be  estimated  as  a  constant  0.2,  and 
equation  (3.5.3)  becomes 


T=0.2FpD  (3.5.4)  . 

The  torque  applied  to  the  nut  is  used  up  in  three  ways.  About  50J  of 
it  is  used  to  overcome  the  friction  between  the  bearing  face  of  the  nut 
and  the  member.  About  ^0%  of  the  applied  torque  is  used  to  overcome 
thread  friction,  and  the  balance  produces  the  bolt  tension.  Only  the  last 
two  items  contribute  the  torsion  in  the  screw  thread.  During  tightening 
the  torsional  stresses  of  external  and  internal  threads  due  to  torque 
become,  respectively. 


4  4 

Tpe=(0.  l6/'7t)FpDemaxKemin/(Kemin -d  ) 


(3.5.5) 


Tpi=(0. l6/7[^FpDoDimin/(Do  -Dimin  ) 


(3.5 


where  Demax=Maximura  major  diameter  of  external  thread 
KeminsMiniraum  minor  diameter  of  external  thread 
Dimin=Minimum  minor  diameter  of  internal  thread 
Do=Equvalent  outside  diameter  of  internal  thread 
dsinside  (Hollow)  diameter  of  external  thread. 


3.6  Thread  Load  and  Heywood's  Formula 


The  screw  thread  on  each  thread  form  can  be  considered  as  a  short, 
very  wide  cantilever,  the  width  being  the  total  length  of  the  thread 
along  the  helix.  If  the  thread  load  is  applied  at  a  relatively  great 
distance  from  the  thread  root,  the  fillet  stress  at  the  thread  root  is 
caused  by  bending  moment.  However,  if  the  thread  load  is  applied  close  to 
the  thread  root,  the  nominal  fillet  stress  can  not  be  determined  by  merely 
considering  the  effect  of  bending  moment.  The  well-known  Lewis  formula  (17) 
calculating  the  maximum  fillet  stress  for  loaded  projection,  such  as  screw 
and  gear  tooth,  is  based  on  a  pure  bending  effect.  The  modified  Lewis  formula 
proposed  combined  bending  and  compression  effects  to  ekssess  the  maximum 
fillet  stress.  But  with  introduction  of  stress  concentration  factor  both 
Lewis  formula  and  modified  Lewis  formula  can  only  correctly  correlate  well 
with  experimental  results  for  a  comparatively  narrow  range  of  shapes  of  loaded 
projection. 

From  photoelastic  data,  Heywood  (18),  Kelly  and  Pedersen  (19)  introduced 

load  proximity  and  shear  effects  and  proposed  an  empirical  formula  for  estimating 

fillet  stress  for  various  type  of  loaded  projections.  Heywood's  empirical 

formula  correlates  rather  well,  over  a  wide  range  of  shapes  of  loaded  projection, 

with  the  experimental  results  from  different  researchers.  Heywood  observed 

that,  in  case  of  screw  thread,  the  maximum  fillet  stress  occurred  at  approximately 
o 

30  to  the  flank.  The  Heywood's  empirical  formula  take  the  form; 


liFT' 


1^.. 


1.5a  0.45  Sin 

Sd=  Kb(W/tCoso<)( - + - + - ) 

2  2 
e  (be)  2e 


(3.6.1) 


where  Sb=Maximun  fillet  stress  due  to  a  thread  load  W/Cos®(  applied 

to  the  thread  projection 
0.7 

Kb=( 1+0.26(e/R)  )  Fillet  stress  concentration  factor 

W  =Axial  load  applied  to  the  threaded  connection 
=Pressure  flank 

e  =Dimension  of  resisting  material 

b  =Straight  line  distance  between  point  of  the  maximum 
tensile  fillet  stress  and  point  of  applied  load 
R  ^Thread  root  radius  at  point  of  maximum  stress 
a  =Ann  of  bending  moment 
t  rProjection  thickness 

jZJ=Angie  defining  direction  of  load  with  respect  to 
the  tangent  to  the  fillet. 

The  first  term  in  parentheses  is  Lewis  bending  moment  terra,  the  second 
is  a  load  proximity  terra,  increasing  the  stress  as  the  point  of  loading 
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approaches  the  fillet,  and  the  third  is  a  shear  effect  term.  The  proximity 
term  arises  partly  from  the  local  distortion  and  complex  load  distribution 
occurring  in  the  region  where  the  load  is  applied,  and  partly  from  the  effect 
of  high  rigidity  near  the  base  of  the  projection.  A  typical  thread  form  with 
parameters  in  Heywood's  empirical  formula  are  defined  in  Figure  3-6.1.  The 
maximum  tensile  fillet  stress  is  estimated  taking  place  at  point  A,  and  the 
maximum  compressive  fillet  stress  is  estimated  taking  place  at  point  B.  The 
arm  of  the  bending  moment  a  is  determined  by  the  perpend iculeir  distance  from 
the  mid-point  C  of  AB  on  to  the  line  of  action  of  the  load.  The  weakest 
semi-section  of  the  projection  is  defined  by  the  line  AD  of  length  e,  this 
being  the  perpendicular  from  point  A  on  the  center  line  of  the  projection. 

The  cingle  is  related  to  wedge  effect  or  friction  force  of  the  pressure 
flank  of  the  threaded  connection.  By  using  finite  element  analysis,  shear 
transfer  rate  was  introduced  and  explored  by  O’Hara  (20)  by  changing  angle 
of  applied  load  to  the  pressure  flank. 

If  the  thread  loads  are  normal  to  pressure  flank,  then  cingle  p  is  30 
degrees.  If  height  of  sharp  v-thread  of  thread  form  is  Ht,  root  truncation 
is  3  as  defined  in  FED-STD-H28  handbook,  the  parameters  shown  in  Heywood's 
formula  can  be  calculated  as  follow: 

Ht-s-R(  1-Co3(60-cX  ))  ai  +  3 

e  - - Sin( - )  (3-6.2) 

(ioscx  ? 
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TYPICAL  THREAD  FORM  WITH  HEYWCXXI'S  PARAMETERS 


d'-R(1-Cos(60-«)) 


Cos  « 


-Sin(oi.+  ^)  (d1/2-RTan(45-o</2)+R  Sin(60-o9)  (3.6.3) 


d'-R(1-Co?(60- <?<■)) 


-1  d'Tanol+RTan(45-^/2)-RSin(60-O<.) 

Cosdan  (  - )) 

d'-R(1-Cos(60-o«.)) 


(3.6.4) 


where 


d1=  m1/cos(6) 


(3.6.5) 


6=  Tan  (P-(Cos(60-^)-Cos(60-cx))/m1) 


(3.6.6) 


ra1=  R(Tan(45-°V2)+Tan(45-p/2)-Sin(60-=')-Sin(60-(a)) 


+P/2+(Tan o<+Tan  (Eemin-Kerain)/2  (for  external  thread)  (3.6.7) 


rm=  R(Tan(45-‘*/2)+Tan(45-^/2)-Sin(60-«‘)-Sin(60-^)) 


+P/2+(Tano' +Tan  (Dimin-Eimin)/2  (for  internal  thread)  (3.6.8) 


and  d'  is  the  distance  from  point  of  applied  load  to  rainimuin  minor  diameter 
of  the  external  thread  (Kemin)  or  minimum  major  diameter  of  the  internal 
thread  (Dimin).  The  parameter  dl  is  the  distance  in  between  point  A  sind 
point  B  as  shown  in  Figure  3.6. I. 
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3-7  Pressure  Flank  Load  Distribution 

A  pressure  flank  load  distribution  and  application  method  was  needed 
for  the  mathematical  thread  joint  model  that  would  reflect  real  world 
behavior  and  conform  in  principle  to  the  leading  accepted  load  distribution 
theories  of  Sopwith  and  Heywood.  In  addition,  this  method  was  required  to 
handle  loading  of  a  variety  of  non-confoTning  thread  conditions.  The  result¬ 
ing  method  represents  an  approximation  to  actual  thread  loading  phenomena  and 
does  not  attempt  to  quantify  the  effects  of  surface  hardness  and  finish, 
friction,  non-cixial  loading,  non-parallel  pressure  flank  surfaces,  residual 
stress,  and  other  factors  involved  in  the  overall  thread  loading  mechanism. 

According  to  Sopwith  (5),  the  screw  thread  on  each  component  can  be 
considered  as  a  short,  very  wide  cantilever,  the  width  being  the  total  length 
of  the  thread  measured  along  the  helix.  The  method  of  load  application  is 
shown  in  Figure  3*7.1.  The  ceintilevers  ABC  and  XYZ  in  Figure  3.7.1a  are 
intially  in  contact  over  the  their  entire  length,  but  when  load  W  is  applied, 
the  cantilevers  deform  as  shown  in  Figure  3.7.1b.  Sopwith  contends  that  by 
synmetry,  the  load  will  be  concentrated  at  the  center  0  of  the  two  cantilevers 
the  inner  parts  AO  and  OX  will  bend  as  shown,  the  unloaded  outer  parts 
remaining  straight  and  in  line  (BOY).  Sopwith  further  asserts  that,  "In 
practice  the  load  will  be  distributed  over  a  narrow  band,  such  that  the  pres¬ 
sure  is  of  the  order  of  the  Brinnell  hardness  of  the  material,  and  even  at 
failure  the  width  of  this  band  will  not  exceed  about  1/10th  the  length  AB 
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or  XY  (depth  of  engagement  of  thread)  and  may  be  taken  as  concentrated.  In 
the  screw  thread  case,  the  mean  width  of  the  two  'cantilevers*  is  slightly 
different,  and  the  load  will  be  concentrated  not  at  mid-depth,  but  very 
slightly  nearer  the  root  of  the  male  thread."  To  condense  Sopwith’s  analysis, 
the  thread  loading  is  a  point  load  (possibly  a  small  distribution)  acting  very 
near  the  center  of  the  thread  depth. 

Heywood  (18),  presents  two-dimensional  photoelastic  analysis  of  thread 
joints  under  single  point  loads  having  different  orientations  and  simulated 
thread- to- thread  contact  loads.  In  comparing  the  two  photographs  of  Figure 
3.7.2,  they  both  exhibit  some  similar  tendencies  in  the  relative  locations 
and  mEignitude  of  stresses,  except  at  the  contact  surfaces  where  some  obvious 
differences  are  noted.  The  interference  bands  indicating  the  stress  contours 
in  Figure  3.7.2a  show  a  concentrated  high  stress  from  which  circular  bands 
emulate.  However,  in  Figure  3.7.2b  the  simulated  thread- to- thread  contact 
shows  an  elongated  stress  contour  roughly  parallel  to  the  pressure  flank 
surface,  a  marked  departure  from  the  point  load  photograph.  The  contour 
appears  to  be  a  slightly  lop-sided  parabolic  shape  with  the  axis  located 
approximately  at  the  center  of  the  thread  depth. 

Before  proceeding  with  developing  a  non-uniform  load  distribution,  the 
uniform  load  distribution  using  seven  point  loads  proposed  by  O'Hara  (20) 
was  studied  for  possible  application  to  this  effort.  In  our  opinion,  the 
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FIGURE  3.7.2  PHOTOELASTIC  STRESS  PATTERNS  OF  THREAD  PROJECTION. 
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unifom  represents  a  significant  step  towards  a  more  realistic  modelling 
of  thread  loading  phenomena.  In  view  of  results  of  Sopwith  and  Heywood, 
discussed  above,  however,  the  authors  of  this  effort  have  elected  to 
augment  the  loading  proposed  by  O'Hara  in  two  ways:  (1)  Use  non-uniform 
distribution  and  (2)  limit  the  distribution  to  only  the  central  portion 
of  the  pressure  flank  contact  area.  Figure  3.7.3  provides  a  comparison  of 
the  different  load  distributions  being  considered. 

The  thread  load  distribution  system  adopted  for  our  model  is  shown  in 
Figure  3«7.4.  The  distribution  is  assumed  to  be  pcU^abolic  (using  seven  point 
loads)  and  is  centered  about  the  center  of  the  thread  depth  (load  diameter) 
defined  by  equation  3*7.1.  The  parabolic  distribution  is  assumed  to  act 

Load  Dia  =  (Min  Major  Dia  Ext  Thrd  -  Max  Minor  Dia  Int  Thrd  )/2  (3.7.1) 

over  40%  of  the  total  thread  surface  contact  area  to  roughly  approximate  the 
distribution  shown  in  Figure  3.7.2b  and  to  allow  a  30%  thread  contact  area 
on  either  sides  to  accommodate  contact  variations  caused  by  non-conforming 
thread  dimensions  for  the  external  thread  major  and  internal  thread  minor 
diameters. 

The  form  of  the  parabolic  distribution  shown  in  Figure  3*7.4  is  defined 
by  equation  3*7.2,  where  the  seven  point  loads  along  the  distribution  are 
calculated  by  the  ratio  of  the  area  of  a  given  section  divided  by  the  total 
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FIGUF^  3.7.3  LOAD  D I STR I  BUT  I C3NS  ON  PRE! 
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FIGURE  3.7.4  L(XATI(DN  OF  LOAD  DIAMETER. 


Jy  dx  J  (u-x  /4u)  dx 

n 


where:  W  =  Total  applied  load  to  thread  joint 

W  =  Portion  of  load  applied  to  section  n 
n 

a  &  b  =  X-axis  boundaries  of  section  n 
n  n 

Calculated  results  obtained  from  the  above  equations  are  given  in  the 
following  table: 


Table  3«7.1  Calculated  Load  Distribution  Parameters 


Section  No 


Section  Area 


Load  Vcdue 


Location  from  center  , 


3.8  Ccxnbined  Loading 


Both  axial  loads  and  thread  loads  produce  fillet  stresses  in  the  thread 
root  area.  As  indicated  in  Figure  3.8.1,  the  axial  loads  cause  concentration 
of  stress  at  the  bottom  of  thread  roots  (points  c  and  c');  while  thread  loads 
cause  stress  concentration  at  approximately  30  degrees  to  pressure  flank 
(point  A),  and  compressive  stress  at  approximately  30  degrees  to  clearance 
flank  (point  B).  The  magnitude  of  tensile  fillet  stress  is  usually  much 
larger  than  that  of  compressive  fillet  stress.  The  angle  between  fillet 
stress  due  to  axial  load  and  tensile  fillet  stress  is  (60- cX),  where  o<.  is 
the  pressure  flank  angle  in  degrees.  Combined  loading  will  produce  a  maximum 
fillet  stress  which  is  considered  a  major  factor  of  thread  failure. 

Notched  parts  subjected  to  behding  or  axial  loads  often  experience  a 
biaxial  stress  at  the  surface  of  the  notch.  A  threaded  connection  in 
tension  sees  a  tangential  or  a  circumferential  tensile  stress  in  the  notch, 
in  addition  to  the  primary  axial  stress.  Peterson  (21)  has  considered  the 
influence  of  this  biaxial  stress  factor,  as  assessed  by  the  distortion 
energy  theory  of  failure.  Addition  of  the  primary  and  secondary  principal 
stresses,  which  have  the  same  sign,  reduces  the  energy  of  distortion. 

The  biaxial  effect  is  a  favorable  one  which  lowers  the  effective  stress 
concentration  factor  to  an  estimated  maximum  of  15$  lower  than  the  regular 
stress  concentration  factor. 
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LOCATIONS  OF  MAXIMUM  FILLET  STRESSES  DUE  TO  AXIAL 


Tangential  (hoop)  stress  at  the  thread  root  area  should  be  included  in 
the  thread  stress  analysis,  as  in  the  case  of  the  cannon  breech  mechanism 
where  the  threaded  connections  are  subjected  to  internal  pressure.  Consider 
a  thick  wall  cylinder  with  inside  radius  (ri)  and  outside  radius  (ro),  which 
is  subjected  to  an  internal  pressure  (pi).  The  radial  stress  (Sr)  and  tengen- 
tial  stress  (Sh)  can  be  expressed  as 


2 

Sr(r)=Kh  (1-(ro/ri)  )  (3-8.1) 

and 

2 

Sh(r)=Kh  (1+(ro/ri)  )  (3-8.2) 


2  2  2 

where  Kh=(pi)(ri)  /((ro)  -(ri)  ),  r  is  the  radius  varying  from  ri  to  ro. 
At  outside  surface  of  the  thick  wall  cylinder  r=ro,  the  radius  stress 
and  tangential  stress  become 


and 


Sr(ro)=0 


(3-8.3) 


2  2  2 

Sh(ro)=2(pi)(ri)  /((ro)  -(ri)  )  (3-8.4). 

The  tangential  stress  at  external  thread  root  area  can  be  estimated  by 
the  equation 

2  2  2 

Sh-2(pi)(d)  /((Kemin)  -d  )  (3-8.5) 
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where  d  is  hollow  diameter  and  Kemin  is  minimum  minor  diameter  of  the 
external  thread.  If  preload  is  applied  on  the  threaded  connection, 
the  tangential  stress  for  internal  thread  at  the  thread  root  area  can 
be  estimated  oy  simulating  the  threaded  connection  as  concentric 
cylinders  with  an  interference  fit.  Since  the  loading  condition  of 
internal  pressure  is  two-dimensional,  only  plane  stresses  will  be 
involved.  The  tangential  stress  can  be  superimposed  with  fillet  stres¬ 
ses  due  to  axial  load  and  thread  load. 

The  actual  magnitudes  of  combined  stresses  due  to  axial  load,  thread 
load  and  internal  pressure  at  any  point  along  the  thread  root  boundary 
are  extremely  difficult  to  assess  for  they  depend  on  the  complicated 
distortions  and  strains  occurring  in  the  two  threaded  members.  However, 
photoelastic  data  show  that  the  tensile  fillet  stress  is  the  dominating 
component  in  the  combined  loading  effects.  The  maximum  fillet  stress 
is  observed  in  between  bottom  of  the  thread  root  and  point  A,  30  degrees 
to  pressure  flank,  and  very  close  to  point  A.  Figure  3.8.2  shows  the 
combined  effect  of  fillet  stresses.  The  dotted  line  DBF  represents  the 
distribution  of  tensile  fillet  stress  due  to  thread  load  (along  the 
bounuary  of  tliread  root)  and  has  its  maximum  value  at  point  A.  The 
dotted  line  FGH  represents  the  distribution  of  compressive  fillet  stress 
due  to  thread  load  and  has  its  maximum  value  in  magnitude  at  point  B. 
Similarly,  dotted  line  UK  represents  distribution  of  tensile  fillet 


COMBINED  FILLET  STR'ISSES  ON  FILLET  CONTOUR. 


stress  due  to  axial  load  having  its  maximum  value  at  point  C.  By  adding 
the  three  stresses  at  points  along  the  thread  root  boundary,  an  estimate 
is  obtained  for  the  stress  distribution  due  to  the  combined  effect, 
which  is  represented  by  chain  dotted  line  HMD  having  a  maximum  value 
at  point  N  and  very  close  to  point  A.  For  simplicity,  it  is  assumed 
that  -he  maximum  value  of  the  combined  effect  takes  place  at  point  A. 

The  maximum  combined  stress,  obviously,  is  not  equal  to  the  algebraic 
sum  of  maximum  values  due  to  separately  applied  loads. 

On  the  boundary  of  the  thread  root,  stresses  normal  to  fillet  contours 
are  zero,  and  there  are  no  shear  stresses  on  free  contour  surface. 
Therefore,  the  combined  fillet  stress  at  point  A  is  a  principal  stress 
which  is  tangent  to  the  fillet  contour,  and  takes  the  form 

Sc=Sb+St(60-oO  (3.8.6) 

where  Sb  is  the  maximum  fillet  stress  due  to  thread  load  and  St(60-o() 
is  the  fillet  stress  due  to  axial  load  at  point  A.  Including  tangential 
(hoop)  stress  Sh,  the  state  stress  at  point  A  is  shown  in  Figure  3.8.3. 

The  Hydrostatic  tension  and  pure  shear  on  octahedral  plane  can  be 
written,  respectively,  as 

Soct=(l/3)(Sb+St(60-oO+Sh)  (3.8.7) 
and 

Toct=(  1/3)(Stw-St(60-od-Sh)  (3.8.8)  . 
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FIQURE  3.8.3  THE  STATE  OF  STRESS  AT  LOCATION  OF  UAXIMUM  FILLET  STRESS  DUE  TO  COMBINED  LOAOIN0 


Under  the  static  loading  condition,  the  safety  factors  of  the  threaded 


connection  due  to  triaxial  tensile  fillet  stress  are  defined  as 


and 


Ny=Sy/Soct 


Nu=Su/3oct 


(3.8.9) 


(3.8.10) 


where  Ny  and  Nu  are  safety  factors  referring  to  yield  stress  and  ultimate 
strength,  respectively.  Similarly,  if  the  maximum  distortion  energy 
theory  is  applied,  safety  factors  of  the  threaded  connection  due  to 
triaxial  shear  fillet  stress  are  defined  as 


cind 


Ny=0.577Sy/Toct 

Nu=0.577Su/Toct 


(3.8.11) 


(3.8.12)  . 


3.9  Fatigue 


The  most  frequent  failure  mode  of  the  threaded  connections  is  fatigue 
failure  due  to  maximum  fillet  stresses  at  the  thread  root  area.  Fatigue 
strength  is,  therefore,  a  main  concern  of  design  criterion  for  the  thread 
connection. 

To  establish  the  fatigue  strength  of  a  material,  several  tests 
are  necessary  because  of  the  statistical  natural  of  fatigue.  Through  a 
series  of  fatigue  tests,  a  S-N  (fatigue  strength  vs.  fatigue  life  cycle) 
diagram  is  obtained.  Figure  3.9.1  shows  an  example  S-N  curve  generated  on 
log-log  paper  for  a  steel  part.  The  graph  shows  a  knee  beyond  which  no 
failure  will  occur  regardless  of  how  great  the  number  of  cycles.  The 
strength  corresponding  to  the  knee  is  called  endurance  limit  Se,  or  fatigue 
limit.  The  graph  never  becomes  horizontal  for  nonferrous  metals  and  alloys 
and  hence  these  materials  do  not  have  an  endurance  limit.  Experimental 
data  show  that  the  endurance  limit  ranges  from  40%  to  60%  of  tensile 
strength  (Su)  for  steel  up  to  Su=200  ksi  with  mean  endurance  limit  Se'=0.5Su. 
For  tensile  strength  of  200  kpsi  and  over,  the  mean  endurance  limit  is 
100  kpsi . 

The  endurance  limit  (Se)  of  a  machine  element  such  as  threaded  connection 
may  be  affected  by  geometric  and  enviormental  factors.  The  major  factors 
are  size  effect  (Cd),  surface  finish  effect  (Cs),  effect  of  load  type  (Cl), 
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FIGURE  3.9.1  GENERALIZED  S-N  DIAGRAM 


modifying  factor  due  to  fatigue  stress  concentration  (Ck),  temperature  effect 
(Ct)  and  reliability  factor  (Cr).  The  modified  endurance  limit  may  be 
written  as 

Se=CdCsClCkCtCrSe'  (3.9.1). 

The  size  effect  is  generally  believed  to  be  related  to  the  stress  gradient. 
For  bending  and  torsion  Cd  is  selected  as  follow: 

Cd=1  D<^=0.4" 

Cd=0.85  0.4"  <D  <=2" 

Cd=0.7b  D>2"  (3.9.2) 

where  D  is  major  diameter  of  the  threaded  connection.  And  for  axial  load  Cd=1. 

Surface  finish  of  a  part  may  affect  its  endurance  limit  in  three  ways: 

(1)  by  introducing  stress  concentration  resulting  from  surface  roughness, 

(2)  by  altering  the  physical  properties  of  the  surface  layer  of  the  material, 
e.g.,  an  as-forged  surface  is  not  only  rough  but  also  decarburized,  and 

the  decarburization  decreases  the  strength  of  the  surface  layer,  and  (3) 
by  introducing  residual  stresses,  e.g.,  grinding  operations  often  leave  the 
surface  layer  in  residual  tension  and  thereby  reduce  its  ability  to  withstand 
reversed  loading.  The  surface  finish  effect  Cs  is  defined  as  the  ratio 
between  the  endurance  limit  obtained  with  arbitrary  surface  finish  and  that 
obtained  with  the  standard  Moore  mirror- polished  finish  as  shown  in  Figure 
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FIGURE  3.9.2  REDUCTION  OF  ENDURANCE  STRENGTH  DUE  TO 
SURFACE  FINISH  FOR  STEEL  PARTS. 
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According  to  Juvinall  (14),  the  endurance  limit  at  10  -cycle  strength 
for  various  load  types  may,  in  absence  of  specific  test  data,  be  approximated 
by  multiplying  the  standard  mean  endurance  limit  Se*  by  the  following  load 
constants  (Cl): 

Reversed  or  rotating  bending:  Cl=1.0 
Reversed  axial  loads:  Cl=0.9  without  bending, 

Cl=0.6  to  0.85  with  indeterminate  bending 
Reversed  torsion:  01=0.58  ductile  metals, 

Cl=0.8  cast  iron  (and  most  brittle  materials). 

Stress  concentration  is  a  highly  localized  effect.  The  high  stresses 
actually  exist  in  only  very  small  region  in  the  vicinity  of  the  discontinuity 
such  as  fillet,  notch  and  crack.  In  the  case  of  ductile  materials  the  first 
load  applied  to  the  member  will  cause  yielding  at  the  discortinuity  vrtiich 
relieves  the  stress  concentration.  Thus  when  the  parts  are  made  of  ductile 
materials  and  the  loads  are  static,  it  isn't  necessary  to  use  a  stress 
concentration  factor.  However,  when  parts  are  made  of  brittle  materials 
or  when  they  are  subject  to  fatigue  loading  ,  then  the  stress  concentration 
to  be  considered.  Fatigue  stress  concentration  factor  Kf  is  defined  as  a 
ratio  between  endurance  limit  of  notch  free  specimen  and  endurance  limit 
of  notched  specimen.  This  factor  cam  be  expressed  in  terms  of  notch  sensitivity 
q  and  stress  concentration  factor  Kt,  such  that 
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Kf=1+q(Kt-1) 


(3.9.3) 


where  0  =q  =1.  If  q=0,  Kf=1,  the  material  has  no  sensitivity  to  notches 
at  all.  If  q=1,  Kf=Kt,  the  material  has  full  sensitivity  to  notches. 

Figure  3.9.3.  provided  by  R.  E.  Peterson  (21),  shows  a  family  of  curves 
of  notch  sensitivity  q  with  respect  to  notch  radius  r  for  various  steel 
tensile  strengths.  For  a  typical  unified  and  American  standard  thread 
steel  bolt  subjected  to  bending  or  axial  loading,  the  fatigue  stress 
concentration  factor  Kf  is  estimated  as  follow; 

Annealed  (less  than  200  Bhn);  Kf=2.2  (rolled),  Kf=2.8  (machined) 

Quenched  and  drawn(over  200  Bhn):  Kf=3.0  (rolled),  Kf=3.8  (machined). 

The  modifying  factor  for  stress  concentration  is  defined  as  Ck=1/Kf.  According 
to  Heywood  (13),  fatigue  stress  concentration  factor  for  finite  life  (Kf) 
ranges  from  1  to  Kf,  where  (Kf -1)/(Kf-1)  is  fairly  linearly  proportional  to 
ultimate  tensile  strength  (Su)  as  shown  in  Figure  3.9.4.  In  this  report,  the 
estimated  safety  factor  for  simple  cyclic  loading  at  various  finite  life 
cycles  (N),  Kf  is  assumed  to  be  linearly  proportional  to  Log(N). 

The  temperature  effect  is  considered  when  the  machine  elements  are  operated 
under  high  temperature  enviroment.  For  ferrous  metals  the  temperature  effect 
(Ct)  is  estimated  to  be: 

o 

Ct=620/(460+T)  When  T  >160  F 

o 

When  T<=160  F 
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Ct=1 


(3.9.4). 
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FIGURE  3.9.4  FATIGUE  STRESS, CONCENTRAT I ON  FACTOR  FOR  FINIT 
LIFE  Kf  AT  1^  CYCLES  (HEYWOOD  (13)). 


Table  3.9.1  Reliability  factor  Cr 

Reliability  R  Standardized  variable  Zr  Reliability  factor  Cr 


In  estimating  the  S-N  diagram  for  ferrous  metals,  the  endurance  limit 
b 

Se,  plotted  at  10  cycles  on  log-log  coordinates,  is  connected  by  a  straight 

3 

line  with  the  estimated  fatigue  strength  (Sf=cSu)  at  10  cycles.  For 

bending  and  torsional  load,  the  constant  c  is  estimated  to  be  0.9,  and 

for  axial  loads,  c  ranges  from  0.75  to  0.9.  The  straight  line  can  be 

used  to  define  the  mean  fatigue  strength  Sf  corresponding  to  any  fatigue  life 

3  6 

N,  where  10  <=N<=  10  ,  The  line  equation  can  be  written  as 


logSf=-mlogN+b 


(3.9.6) 


where 

m=(1/3)log(cSu/Se)  (3.9.7) 


and 


2 

b=log((cSu)  /Se)  (3.9.8). 

6  3 

This  line  intersects  10  cycles  at  Se  and  10  cycles  at  cSu  in  logS-logN 


curve.  When  Su  and  Se  are  given,  parameters  m  and  b  can  be  solved.  Then  if 
fatigue  life  N  is  given,  the  corresponding  fatigue  strength  Sf  can  be 
calculated  through  the  following  relation: 

b  m  3  b 

Sf=10  /N  ,  10  <=N<=10  (3-9.9). 

Alternatively,  if  the  fatigue  strength  Sf  is  given,  the  fatigue  life  N 

can  be  found  as 

b/m  1/m  3  6 

N=10  /Sf  ,  10  <=N<=10  (3.9.10). 

For  the  loading  history,  fluctuating  stresses  are  presented  in  terms  of 
maximum  stress  Smax  (or  Tmax  for  torsion),  minimum  stress  Smin  (or  Train), 
mean  stress  Sm  (or  Tm),  alternating  stress  Sa  (or  Ta)  and  prestress  Sp  (or  Tp) 
The  mean  stress  and  alternating  stress  can  be  expressed  as 

Sm=Sp+(Smax+Smin)/2  (3-9.11) 

and 

Sa=(Smax-Smin)/2  (3-9.12). 

A  few  criteria  for  fatigue  fracture  are  presented  in  the  literatures 
such  as  Soderberg  line,  Goodman  line,  Gerber  parabola.  Sine  octahedral 
approach  and  Kececioglu  curve.  Figure  3.9-5  shows  a  typical  Sa-Sm  diagram 
with  test  data  and  various  fatigue  fracture  criteria  with  respect  to  the 
endurance  limit.  The  Sine  octahedral  approach  cannot  be  illustrated  except 
for  special  cases.  These  proposals,  each  having  their  particular  degree 


v" 


of  conservatism,  are  verified  by  many  experiments.  Modified  Goodman,  a 

conservative  criterion  of  fatigue  fracture,  is  applied  in  this  threaded 

connection  stress  analysis.  For  notched  specimens  of  ductile  metals,  a 

typical  Sra-Sa  (or  Tm-Ta)  diagram  for  tensile,  bending  or  torsional  loads 

is  shown  in  Figure  3.9.6.  The  fatigue  strength  can  be  the  endurance  limit, 

b 

corresponding  to  10  cycles  of  infinite  fatigue  life,  or  any  fatigue  strength 

3  6 

corresponding  to  fatigue  life  in  between  10  cycles  and  10  cycles.  The 
line  AB,  Goodman  line,  is  the  criterion  of  fatigue  fracture.  The  lines  CD 
and  CE  are  the  criteria  of  static  yielding.  The  line  AF  is  the  criterion 
of  fatigue  fracture  in  compression.  The  equation  of  lines  AB,  CD,  CE  auid  AF 
can  be  written  as: 


Sa+(Sf/Su)Sm=Sf 


(3.9.13) 


Stm-Sa:Sy 


(3.9.14) 


Sa-Sm=Sy 


(3.9.15) 


Sa=Sf 


(3.9.16) 


where  Sf,  Su  and  Sy  are  known  positive  values.  All  points  below  EFAGD 


correspond  to  fluctuating  stresses  which  should  cause  neither  fatigue  fracture 
nor  plastic  deformation.  If  a  machine  element  such  as  the  threaded  connection 


subjected  to  cyclic  tensile  loads  and  ratio  Sa/Sm  can  be  calculated,  without 
fatigue  test  one  can  estimate  fatigue  strength  corresponding  to  desired 
fatigue  life  or  estimate  fatigue  life  for  a  given  loading  condition  by  using 
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Figures  3.9.1  or  3-9.6.  Figure  3-9.7  shows  a  experimental  fatigue  strength 

diagram  for  alloy  steel  with  Su=125  to  180  kpsi  under  axial  loading  using 

Sm-Sa  as  well  as  Smax-Smin  coordinates.  The  curves  are  generated  by  Grurnnan 

Aircraft  Engineering  Corp.,  and  applicable  to  alloy  steel  as  AISI  4340,  4130, 

3 

2330  and  8630  etc.  The  diagram  shows  that  the  fatigue  strength  at  10  cycles 
is  about  84%  of  the  ultimate  strength.  This  diagram  and  fatigue  factor  of  size 
effect  (Cd),  surface  finish  effect  (Cf),  load  type  effect  (Cl),  modifying  factor 
due  to  fatigue  stress  concentration  (Ck),  temperature  effect  (Ct)  and  reliability 
factor  (Cr)  will  be  used  in  the  program  to  estimate  the  safety  factor  of  the 
threaded  joint  under  a  simple  cyclic  loading  condition  at  various  fatigue  life 
cycles . 

From  Section  3.8,  combined  loading,  the  elements  on  the  fillet  contour  have 
two  stress  components  which  are  the  hoop  stress  (Sh)  and  the  combined  fillet  stress 
due  to  axial  load  .and  thread  load  (Sc).  Both  stresses  Sh  and  Sc  may  have  both 
mean  and  alternating  components  (Shm,  Sha,  Sera  and  Sea).  By  using  distortion 
energy  theory,  tiie  mean  .and  alternating  von  Mises  stresses  are  defined  as: 


S'm=(Shm  -SiimScm+Scra  )  (3-9.17) 

and 


2  2  i 

S ' a= ( Sha  -ShaSca+S^a  ) 


(3.9. 18)  . 


These  two  stress  components  may  then  be  applied  to  S'm-S'a  diagram  and 
fatigue  criterion  such  as  modified  Goodman  criterion  to  estimate  fatigue 
strength  or  fatigue  life. 

The  safety  factor  due  to  combination  of  mean  and  alternating  stresses 

can  be  determined  by  Sm-Sa  diagram  with  fatigue  fracture  criterion.  If  a 

threaded  connection  is  under  cyclic  loads,  a  load  line  OP  and  nominal  load  point 

N  can  be  establisded  in  Sm-Sa  diagram  as  shown  in  Figure  3*9.8.  The  nominal 

load  point  corresponds  to  the  combination  of  mean  and  alternating  stresses. 

It  is  observed  that  there  are  three  possible  desigpi  overload  points  on  the  fatigue 

fracture  criterion  curve  (modified  Goodman  line  is  applied  in  this  study)  of 

specified  fatigue  strength  which  may  correspond  to  any  fatigue  lifes  from 
3  0 

10  cycles  to  10  cycles.  The  three  interpretations,  according  to  Juvinall  (14), 
represented  on  the  figure  are  discussed  as  follow: 

(1)  If  the  nature  of  the  machine  involved  was  such  that  only  the  alternating 
stress  could  be  increased  due  to  overload,  point  Q  would  be 

the  design  overload  point,  and  the  safety  factor  would  be 
Nf=OF/OD  (3*9*19) 

(2)  If  the  mean  stress,  by  itself,  could  be  increased  during  overloading,  point 
R  would  be  the  design  overload  point,  and  the  safety  factor  would  be 

Nf=0C/0A  (3*9.20) 

(3)  If  the  mean  and  alternating  stresses  increased  by  the  same  percentage 
during  overload,  point  P  would  be  the  design  overload  point,  and  the 
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FIGURE  3.9.8  THREE  POSSIBLE  DESIGN  OVERLOAD  POINTS  FOR  SAFETY  FACTOR  CALCULATION 


safety  factor  would  be 


Nf=OP/ON=OE/OD=OB/OA 


(3.9.21)  . 


Without  knowing  nature  of  the  machine  element  responding  to  overloading, 

interpretation  (3)  will  be  adopted.  Figure  3.9.9  illustrates  that  safety 

factors  of  the  nominal  load  point  N  can  be  calculated  corresponding  to 

3  t) 

fatigue  lifes  ranged  from  10  cycles  to  10  cycles,  such  that 


NfdO  )=0B  /OArOC  /OA  =OD  /OA 
1  1112 


Nf(10  )=0B  /0A=0C  /OA  =0D  /OA 
2  2  12  2 


Nf(10  )=OB  /0A=0C  /OA  =OD  /OA 

3  3132 


Nf(10  )=03  /0A=0C  /OA  =0D  /OA 
M  9  14  2 


(3.9.22), 
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FIGURE  3.9.9  SAFETY  FACTORS  CORRESPONDING  TO  VARIOUS  FATIGUE  LIFE 


4.  Interactive  Computer  Program  on  Thread  Stress  Analysis 


The  easy-to-use  menu  driven  program  is  initiated  with  the  ooratnand 
SEG  THREAD  which  then  prints  the  following  menu  on  the  screen; 


•»»  THREAD  PROGRAM  CONTROL  MENU  »»• 


INTRODUCTION  .  1 

RECALL  THREAD  FILE  .  2 

INPUT  THREAD  DATA  .  3 

EDIT  THREAD  DATA  .  ^ 

LIST  THREAD  DATA  .  5 

SAVE  THREAD  DATA  .  6 

STATIC  AND  FATIGUE  ANALYSIS  .  7 

EXIT  TO  PRIM3S  .  8 


ENTER:. 


Selection  of  menu  will  guide  user  to  prepare  thread  data  or  conduct  static 
and  fatigue  analysis. 


Selection  of  ( 1 )  INTRODUCTION  will  provide  a  brief  description  of  the 
type  of  static  and  fatigue  analysis  that  the  program  will  perform  and  the 
types  of  thread  forms  that  can  be  analyzed.  A  brief  explanation  of  the 
output  format  and  the  required  user  provided  variables  is  also  listed. 


Selection  (2)  RECALL  THREIAD  FILE  will  prompt  the  user  to  fx^ovide  a  file 
name  of  a  previously  saved  file  (thread  data  saved  by  menu  selection  of  (6)). 
Following  user  entry  of  a  valid  file  name,  the  program  reads  thread  data 
into  program  memory,  where  the  data  can  then  be  listed,  edited,  saved,  and 
have  static  and  fatigue  analysis  applied  to  it. 
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Selection  (3)  INPUT  THREAD  DATA  pemits  user  input  of  thread  parameters 
for  a  particular  thread  analysis  problem.  The  entered  data  goes  directly  into 
program  manory  where  editing,  listing,  saving,  and  guialysis  may  be  performed. 
Table  4.1  gives  the  thread  stress  analysis  information  input  form  which 
itemizes  required  information  for  thread  analysis.  Table  4.2  shows  this 
information  input  form  which  has  been  filled  in  with  an  example. 

Selection  (4)  EDIT  THREAD  DATA  gives  user  the  opportunity  of  changing 
any  of  the  thread  analysis  problem  parameters  contained  in  program  memory 
(either  from  input  data  or  recalled  data  fi’e).  After  4  is  selected,  the 
program  lists  all  thread  parameters  which  are  each  identified  with  a  menu 
number.  To  change  any  parameter,  user  selects  appropriate  thread  parameter 
identity  number  and  makes  the  change.  When  the  editing  session  is  over, 
user  keys  in  0  followed  by  a  carriage  return  to  return  to  the  menu. 

Selection  (5)  LIST  THREAD  DATA  gives  a  listing  of  the  parameters  currently 
in  the  program  memory. 

Selection  (6)  SAVE  THREAD  DATA  will  write  thread  analysis  parameters 
currently  in  program  memory  to  a  separate  file  external  to  the  program. 

User  is  prompted  for  a  file  name,  which  must  be  used  to  recall  the  saved  data 
when  using  selection  (2). 


Selection  (7)  STATIC  AND  FATIGUE  ANALYSIS  solves  static  and  fatigue 


nuoj  indNi  NDiivrwoJNi  sisatvnv 


(simple  load  history)  problems  under  assumption  of  elasticity  for  thread 
parameters  currently  in  program  memory.  In  static  analysis,  load  capacity 
of  the  threaded  joint  and  safety  factors  are  calculated  under  maximum,  minimum 
and  actual  material  conditions  corresponding  to  yield  stress  and  tensile 
strength.  In  fatigue  analysis,  safety  factors  corresponding  to  various 
fatigue  life  cycle  ranges  are  estimated  based  on  user  supplied  parameters. 

Selection  (8)  EXIT  TO  PRIMOS  returns  user  to  the  PRIME  operating  system 
at  the  conclusion  of  the  thread  analysis  session. 

Specific  example  sessions  for  V,  Acme,  Stub  Acme,  Buttress,  and  PF20 
Watervliet  Special  Threads  are  given  in  appendices  A. 5  through  A. 9,  respectively. 

The  interactive  thread  analysis  program  documented  in  this  report  is 
written  in  PRIME  F77,  an  extended  version  of  FORTRAN  77  which  conforms  fully 
to  ANSIx3.9-1978.  a  complete  software  reference  including  program  variable 
list,  common  block  definitions,  source  code  listing,  and  compile  load  instructions 
is  provided  in  appendices  A.1  through  A. 4. 


5.  Diocussion 


The  object  of  this  report  is  to  establish  a  program  for  estimating  load 
capacities  and  fatigue  life  cycles  of  designed  threaded  connection  subjected 
to  a  simple  cyclic  loading.  Elastic  material  property  is  assumed  in  this 
report.  For  a  more  realistic  material  model  and  numerical  method  of  analysis, 
finite  element  analysis  with  assumption  of  elastic-plastic  material  model  is 
recommended  for  tnis  project  in  the  future.  This  approach  nas  been  explored 
oy  many  researches  such  as  O'Hara  (22),  and  Chen  and  O'Hara  (23). 

A  parabolic  load  distribution  on  pressa»^e  flank  is  proposed  in  this  report 
to  reflect  stress  response  in  the  threaded  connection.  Flank  angle  deviation 
is  assumed  to  be  negligible  in  the  prograjri.  If  flank  angle  deviation  is 
significant  for  a  non-conforming  thread,  bias  load  distribution  may  occur  and 
a  complicated  load  distribution  program  will  be  needed  to  describe  the  mismatched 
flcink  angles  of  non-conforming  threaded  connection.  Hoop  stress  of  internal 
thread  member  is  considered  far  less  than  fillet  stresses  due  to  bending  and 
axial  loading  and  is  not  included  in  the  program.  However  for  external  thread 
member,  hoop  stress  is  calculated  if  internal  pressure  applied.  It  is  noticed 
that  stress  due  to  shear  is  far  less  than  triaxial  root  stresses  so  that  thread 
failure  usually  due  to  fillet  stress.  Shear  failure  takes  place  when  threads 
have  significant  truncation  and  reduce  thread  contact  surface. 

In  fatigue  analysis,  load  history  is  calculated  by  using  user  supplied 
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axial  naximum  applied  and  minimum  applied  load  to  calculated  alternating  and 
mean  stresses.  Internal  pressure  applied  to  threaded  joint  is  assumed  to  be 
in  phase  with  load  history.  The  threaded  connection  is  assumed  to  be  subjected 
to  cixial  loading,  hence,  size  effect  is  Cd=1  and  load  type  effect  is  Cl=0.9.  In 
the  program,  an  experimental  fatigxie  strength  diagram  for  alloy  steel  with  tensile 
strength  Su=125  to  180  ksi  under  axial  loading  is  adopted.  To  estimate  safety 
factors  at  various  fatigue  life  cycles,  factors  of  size  effect  (Cd),  surface 
finish  effect  (Cs),  load  type  effect  (Cl),  modifying  factor  due  to  fatigue 
stress  concentration  (Ck),  temperature  effect  (Ct)  and  reliability  factor  (Cr) 
are  applied.  Those  factors  are  adopted  from  various  sources,  although  precision 
is  not  claimed,  but  the  results  can  serve  as  a  reference  or  indicator.  For 
material  with  tensile  strength  Su  less  than  125  ksi  or  larger  than  180  ksi,  S-N 
curves  with  equation  (3*9.10)  and  Goodman  lines  with  equation  (3*9.22)  can  be 
applied  to  find  fatigue  life  cycle  and  safety  factor  at  various  fatigue  life 
cycles . 

Currently,  this  program  only  cover  thread  forms  of  UN,  UNC,  UNF,  UNEF,  ACME, 
Stub  ACME,  Buttress  and  PF20  Watervliet  special  thread.  It  is  planned  to  add 
additional  thread  forms  used  on  the  components  manufactured  at  Rock  Island  Arsenal. 
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A.1  Ptx)grani  Variable  List 


PI  =  3.14159  (PHI) 

BMJDIA  =  BASIC  MAJOR  DIAMETER  (OR  DATUM  DIAMETER  FDR  PF20  THREAD) 

EJX  =  MAX  MAJOR  DIAMETER  (EXTERNAL  THREAD) 

EJN  =  MIN  MAJOR  DIAMETER  (EXTERNAL  THREAD) 

EJA  =  ACT  MAJOR  DIAMETER  (EXTERNAL  THREAD) 

EPX  =  MAX  PITCH  DIAMETER  (EXTERNAL  THREAD) 

EPN  =  MIN  PITCH  DIAMETER  (EXTERNAL  THREAD) 

EPA  =  ACT  PITCH  DIAMETER  (EXTERNAL  THREAD) 

EMX  =  MAX  MINOR  DIAMETER  (EXTERNAL  THREAD) 

EMN  =  MIN  MINOR  DIAMETER  (EXTERNAL  THREAD) 

EMA  =  ACT  MINOR  DIAMETER  (EXTERNAL  THREAD) 

IJX  =  MAX  MAJOR  DIAMETER  (INTERNAL  THREAD) 

UN  =  MIN  MAJOR  DIAMETER  (INTERNAL  THREAD) 

IJA  =  ACT  MAJOR  DIAMETER  (INTERNAL  THREAD) 

IPX  =  MAX  PITCH  DIAMETER  (INTERNAL  THREAD) 

IPN  =  MIN  PITCH  DIAMETER  (INTERNAL  THREAD) 

IPA  =  ACT  PITCH  DIAMETER  (INTERNAL  THREAD) 

IMX  =  MAX  MINOR  DIAMETER  (INTERNAL  THREAD) 

IMN  =  MIN  MINOR  DIAMETER  (INTERNAL  THREAD) 

IMA  =  ACT  MINOR  DIAMETER  (INTERNAL  THREAD) 

A(1)  =  PITCH  DIAMETER  TOLERANCE  (EXT  THREAD) 

A (2)  =  PITCH  DIAMETER  TOLERANCE  (INT  THREAD) 

G  =  PITCH  ALLOWANCE 

T( 1 )  =  MINIMUM  DIAMETER  TOLERANCE 

T(2)  =  MAXIMUM  DIAMETER  TOLERANCE 

ETS  =  EXTERNAL  MEMBER  TENSILE  STRENGTH 

ITS  =  INTERNAL  MEMBER  TENSILE  STRENGTH 

EYS  =  EXTERNAL  MEMBER  YIELD  STRENGTH 

lYS  =  INTERNAL  MEMBER  YIELD  STRENGTH 

TS  =  MINIMUM  ULT  STRESS  BETWEEN  EXT  &  INT  ULT  STRENGTHS 

YS  =  MINIMUM  YIELD  STRESS  BETWEEN  EXTERNAL  &  INTERNAL  YIELDS  STRENGTHS 

ASHEAR  =  SHEAR  AREA 

SSTRESS  =  SHEAR  STRESS  DUE  TO  MAX  LOAD 

KAEX  =  AXIAL  STRESS  CONCENTRATION  FACTOR  EXT  THRD  (MAX  MAIL  COND) 

KAEN  =  AXIAL  STRESS  CONCENTRATION  FACTOR  EXT  THRD  (MIN  MATL  COND) 

KAEA  =  AXIAL  STRESS  CONCENTRATION  FACTOR  EXT  THRD  (ACT  MATL  COND) 

KAIX  =  AXIAL  STRESS  CONCENTRATION  FACTOR  INT  THRD  (MAX  MATL  COND) 

KAIN  =  AXIAL  STRESS  CONCENTRATION  FACTOR  INT  THRD  (MIN  MATL  COND) 

KAIA  =  AXI.iL  STRESS  CONCENTRATION  FACTOR  INT  THRD  (ACT  MATL  COND) 

KQEX  =  FATIGUE  STRESS  CONCENTRATION  FACTOR  EXT  THRD  (MAX  MATL  COND) 

KQEN  =  FATIGUE  STRESS  CONCENTRATION  FACTOR  EXT  THRD  (MIN  MATL  COND) 

KQEA  =  FATIGUE  STRESS  CONCENTRATION  FACTOR  EXT  THRD  (ACT  MATL  COND) 

KQIX  =  FATIGUE  STRESS  CONCENTRATION  FACTOR  INT  THRD  (MAX  MATL  COND) 
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KQIN 

KQIA 

KPEX 

KPEN 

KPEA 

KPIX 

KPIN 

KPIA 

STEX 

STEN 

STEA 

STIX 

STIN 

STIA 

HDIA 

ODIA 

HV 

N 

PITCH 

PFANG 

STD(1) 

CLANG 

STD(2) 

PFRAD 

CLRAD 

ERR 

STD(3) 

IRR 

STD(4) 

CLASS 


FATIGUE  STRESS  CONCENTRATION  FACTOR  INT  THRD  (MIN  MATL  COND) 
FATIGUE  STRESS  CONCENTRATION  FACTOR  INT  THRD  (ACT  MATL  COND) 
FINITE  LIFE  S.C.  FACTOR  EXT  THRD  (MAX  MATL  COND) 

FINITE  LIFE  S.C.  FACTOR  EXT  THRD  (MIN  MATL  COND) 

FINITE  LIFE  S.C.  FACTOR  EXT  THRD  (ACT  MATL  COND) 

FINITE  LIFE  S.C.  FACTOR  INT  THRD  (MAX  MATL  COND) 

FINITE  LIFE  S.C.  FACTOR  INT  THRD  (MIN  MATL  COND) 

FINITE  LIFE  S.C.  FACTOR  INT  THRD  (ACT  MATL  COND) 

AXIAL  STRESS  EXT  THRD  (MAX  MATL  COND) 

AXIAL  STRESS  EXT  THRD  (MIN  MATL  COND) 

AXIAL  STRESS  EXT  THRD  (ACT  MATL  COND) 

AXIAL  STRESS  INT  THRD  (MAX  MATL  uOND) 

AXIAL  STRESS  INT  THRD  (MIN  MATL  COND) 

AXIAL  STRESS  INT  THRD  (ACT  MATL  COND) 

HOLLOW  DIAMETER  IN  EXTERNAL  MEMBER 
EQUIVALENT  O.D.  OF  INTERNAL  MEMBER 
HEIGHT  OF  SHARP  V-THREAD 
NUMBER  OF  THREADS  PER  INCH 
PITCH  (INVERSE  OF  THREADS  PER  INCH) 

PRESSURE  FLANK  ANGLE  (DEGREES) 

STANDARD  OR  NON-STANDARD  STRING  FOR  PFANG 
CLEARANCE  FLANK  ANGLE  (DEGREES) 

STANDARD  OR  NON-STANDARD  STRING  FOR  CLANG 
PRESSURE  FLANK  ANGLE  (RADIANS) 

CLEARANCE  FLANK  ANGLE  (RADIANS) 

MIN  ROOT  RADIUS  (EXT  THRD) 

STANDARD  OR  NON-STANDARD  STRING  FOR  ERR 
MIN  ROOT  RADIUS  (INT  THRD) 

STANDARD  OR  NON-STANDARD  STRING  FOR  IRR 
THREAD  CLASS  DESIGNATION 


HE1  =  HEIGHT  OF  THRD  IN  EXT  THRD 

HI1  =  HEIGHT  OF  THRD  IN  INT  THRD 

HE2  =  BASIC  THREAD  HEIGHT  EXT  THRD 

HI2  =  BASIC  THREAD  HEIGHT  INT  THRD 

LE  r  MINIMUM  LENGTH  OF  ENGAGEMENT  (IN) 

SERIES  =  THREAD  SERIES  DESIGNATION 


SECTOR  =  DECIMAL  FRACTION  OF  THREAD  PORTION  LEFT  AFTER  SEGMENTING 

INTFLG  =  FUG  -  INDICATES  INTERFERENCE  CONDITION  IF  =  1 

PRES(I)  =  INTERNAL  PRESSURE  (PSI) 

SHEX  =  HOOP  STRESS  EXT  THRD  (MAX  MATL  COND) 

SHEN  =  HOOP  STRESS  EXT  THRD  (MIN  MATL  COND) 

SHEA  =  HOOP  STRESS  EXT  THRD  (ACT  MATL  COND) 

BLPFS  =  BACKLASH  ON  PRESSURE  FLANK  SIDE  (TO  SPEC  COND) 

BLCFS  =  BACKLASH  ON  CLEARANCE  FLANK  SIDE  (TO  SPEC  COND) 

BLPFD  =  BACKLASH  ON  PRESSURE  FLANK  SIDE  (ACTUAL  COND) 
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BLCFD  =  BACKLASH  ON  CLEARANCE  FLANK  SIDE  (ACTUAL  COND) 

BLS  =  BACKLASH  TOTAL  (TO  SPEC  COND) 

BLD  =  BACKLASH  TOTAL  (ACTUAL  COND) 

HELIXS  =  LENGTH  OF  HELIX 

SARA  =  SURFACE  CONTACT  AREA  (TO  SPEC  CX)ND) 

SARAX  =  SURFACE  CONTACT  AREA  (MAX  MATL  COND) 

SARAN  =  SURFACE  CONTACT  AREA  (MIN  MATL  COND) 

SARV  =  %  VARIANCE  OF  SURFACE  CONTACT  AREA 
EJV  =  VARIANCE  IN  MAJOR  DIAMETERS  (EXT  THRD) 

EPV  =  VARIANCE  IN  PITCH  DIAMETERS  (EXT  THRD) 

EMV  =  VARIANCE  IN  MINOR  DIAMETERS  (EXT  THRD) 

IJV  =  VARIANCE  IN  MAJOR  DIAMETERS  (INT  THRD) 

IPV  =  VARIANCE  IN  PITCH  DIAMETERS  (INT  THRD) 

IMV  =  VARIANCE  IN  MINOR  DIAMETERS  (INT  THRD) 

AT  =  STRESS  AREA 

PREMAX  =  MAXIMUM  RECOMMENDED  PRELOAD  (W/0  PLASTIC  DEFORMATION) 
TORQMAX  =  MAXIMUM  RECOMMENDED  TORQUE  (W/O  PLASTIC  DEFORMATION) 

FPFRAC  =  DECIMAL  FRACTION  OF  MAX  ALLOWABLE  PRELOAD 
LOAD(I)  =  PRELOAD  APPLIED  TO  THREAD  JOINT,  INPUT  AS  A  DIRECT  CLAMPING 
LOAD,  AS  A  RESULT  FROM  TIGHTENING  TORQUE,  OR  AS  A  FRACTION 
OF  MAX  ALLOWABLE  PRELOAD  FORCE  AS  LIMITED  BY  THE  PLASTIC 
DEFORMATION  OF  THE  MEMBERS. 

L0AD(2)  =  MAX  APPLIED  FORCE  (KIP) 

LOAD(3)  =  MIN  APPLIED  FORCE  (KIP) 

TORQ  =  APPLIED  TORQUE  TO  THREAD  JOINT  (FT-LBS) 

FF  =  FRICTION  FACTOR  FOR  TIGHTENING  TORQUE 

TPE  =  TORSIONAL  STRESS  DUE  TO  TIGHTENING  &  PRELOAD  (EXT  THRD) 

TPI  =  TORSIONAL  STRESS  DUE  TO  TIGHTENING  &  PRELOAD  (INT  THRD) 

SEMAX  =  MAX  ROOT  TRUNCATION  FOR  EXT  THREADS 

SEIMIN  =  MIN  ROOT  TRUNCATION  FOR  EXT  THREADS 

SIMAX  =  MAX  ROOT  TRUNCATION  FOR  INT  THREADS 

SIMIN  =  MIN  ROOT  TRUNCATION  FOR  INT  THREADS 

EEX  =  HEYWOOD  E  PARAMETER  FOR  EXT  THREAD  (MAX  MATL  COND) 

EEN  =  HEYWOOD  E  PARAMETER  FOR  EXT  THREAD  (MIN  MATL  COND) 

EEA  =  HEYWOOD  E  PARAMETER  FOR  EXT  THREAD  (ACT  MATL  COND) 

EIX  =  HEYWOOD  E  PARAMETER  FOR  INT  THREAD  (MAX  MATL  COND) 

EIN  =  HEYWOOD  E  PARAMETER  FOR  INT  THREAD  (MIN  MATL  COND) 

El A  =  HEYWOOD  E  PARAMETER  FOR  INT  THREAD  (ACT  MATL  COND) 

Ml EX  =  Ml  PARAMETER  EXT  THREAD  (MAX  MATL  COND) 

MIEN  =  Ml  PARAMETER  EXT  THREAD  (MIN  MATL  COND) 

M1EA  =  Ml  PARAMETER  EXT  THREAD  (ACT  MATL  COND) 

Ml IX  =  Ml  PARAMETER  INT  THREAD  (MAX  MATL  COND) 

Ml IN  =  Ml  PARAMETER  INT  THREAD  (MIN  MATL  COND) 

M1IA  =  Ml  PARAMETER  INT  THREAD  (ACT  MATL  COND) 

ETHETAX  =  ANGLE  THETA  EXT  THREAD  (MAX  MATL  COND) 


ETHETAN  =  ANGLE  TiiETA  EXI  Ti-iHEAD  (MIN  MAIL  COND) 

ETHETAA  =  ANGLE  THETA  EXT  THREAD  (ACT  MATE  COND) 

ITHETAX  =  ANGLE  THETA  INT  THREAD  (MAX  MATE  COND) 

ITHETAN  =  ANGLE  TTIETA  INT  THREAD  (MIN  MATE  COND) 

ITHETAA  =  ANGLE  THETA  IN'T  THREAD  (ACT  MATE  COND) 

DPEX(I)  =  DISTANCE  FRuM  H’XT  VJ  CEN'TEH  LOAD  LINE  EXT  THRD  (MAX  MATE  COND) 

DPEN(I)  =  DISTANCE  FROM  HuOT  T(,)  -CENTER  LOAD  LINE  EXT  THRD  (MIN  MATE  COND) 

DPEA(I)  =  DISTANCE  FROM  HOOT  TO  CENTER  LOAD  LINE  EXT  THRD  (ACT  MATE  COND) 

DPIX(I)  =  DISTANCE  FROM  RCX)T  TO  CENTER  LOAD  LINE  INT  THRD  (MAX  MATE  COND) 

DPIN(I)  =  DISTANCE  FROM  ROOT  TO  CENTER  LOAD  LINE  INT  THRD  (MIN  MATE  COND) 

DPIA(I)  =  DISTANCE  FROM  RiX)T  TO  CENTER  LOAD  LINE  INT  THRD  (ACT  MATE  COND) 

(I)  DENOTES  INCREMENTALIZED  PARABOLIC  LOAD  DISTRIBUTION  (1-7) 
BSX(I)  =  HEYWOOD  B  PARAMETER  EXT  THRD  (MAX  MATE  COND) 

BEN(I)  =  HEYWOOD  B  PARAMETER  EXT  THRD  (MIN  MATE  COND) 

BEA(I)  =  HEYWOOD  B  PARAMETER  EXT  THRD  (ACT  MATE  COND) 

BIX(I)  =  HEYWOOD  B  PARAMETER  INT  THRD  (MAX  MATE  COND) 

BIN(I)  =  HEYWOOD  B  PARAMETER  INT  THRD  (MIN  MATE  COND) 

BIA(I)  =  HEYWOOD  3  PARAMETER  INT  THRD  (ACT  MATE  COND) 

AEX(I)  =  HEYWOOD  A  PARAMETER  EXT  THRD  (MAX  MATE  COND) 

AEN(I)  =  HEYWOOD  A  PARAMETER  EXT  THRD  (MIN  MATE  COND) 

AEA(I)  =  HEYWOOD  A  PARAMETER  EXT  THRD  (ACT  MATE  COND) 

AIX(I)  =  HEYWOOD  A  PARAMETER  INT  THRD  (MAX  MATE  COND) 

AIN(I)  =  HEYWOOD  A  PARAMETER  INT  THRD  (MIN  MATE  COND) 

AIA(I)  =  HEYWOOD  A  PARAMETER  INT  THRD  (ACT  MATE  COND) 

KBEX  =  FILLET  STRESS  CONCENTRATION  FACTOR  EXT  THRD  (MAX  MATE  COND) 

KBEN  =  FILLET  STRES(5  CONCENTRATION  FACTOR  EXT  THRD  (MIN  MATE  COND) 

KBEA  =  FILLET  STRECvS  C.ONC;eNTHATION  FACTOR  EXT  THRD  (ACT  MATE  COND) 

KBIX  =  FILLET  STRESS  CONCENTRATION  FACTOR  INT  THRD  (MAX  MATE  COND) 

KBIN  =  FILLET  STRESS  CONCENTRATION  FACTOR  INT  THRD  (MIN  MATE  COND) 

KBIA  =  FILLET  STRESS  CONCENTRATION  FACTOR  INT  THRD  (ACT  MATE  COND) 

PTX(I)  =  THREAD  PROJECTION  THiCKNESS  (MAX  MATE  COND) 

PTN(I)  =  IHREAD  PROJECTION  THICKNESS  (MIN  MATE  COND) 

PTA(I)  =  THREAD  PROJECTION  THICKNESS  (ACT  MATE  COND) 

T1X(I)  =  SECOND  OOEFFICIENT  TERM  IN  HEYWOOD  EQ  (UNIT  LOAD) (MAX  MATE  COND) 

TIN(I)  =  SECOND  COEFFICIENT  TERM  IN  HEYWOOD  EQ  (UNIT  LOAD)(MIN  MATE  COND) 

TIA(I)  =  SECOND  COEFFICIENT  TERM  IN  HEYWOOD  EQ  (UNIT  LOAD) (ACT  MATE  COND) 

T2EX(I)  =  1ST  TERM  INC  IDE  .BF'ACKEiS  iN  HEYWOOD  EQ  EXT  THRD  (MAX  MATE  COND) 

T2EN(I)  =  1ST  TERM  INSIDE  BRACKETS  IN  HEYWOOD  EQ  EXT  THRD  (MIN  MATE  COND) 

T2EA(I)  =  1ST  TERM  INSIDE  BRACKETS  IN  HEYWOOD  EQ  EXT  THRD  (ACT  MATE  COND) 

T2IX(I)  =  1ST  TERM  INSIDE  BHACKEI’S  IN  HEYWOOD  EQ  INT  THRD  (MAX  MATE  COND) 

T2IN(I)  =  1ST  TERM  INSIDE  BRACKETS  IN  HEYWOOD  EQ  INT  THRD  (MIN  MATE  COND) 

T2IA(I)  =  1ST  TERM  INSIDE  BRACKETS  IN  HEYWOOD  EQ  INT  THRD  (ACT  MATE  COND) 

T3EX(I)  =  2ND  TERM  INSIDE  BRACKETS  IN  HEYWOOD  EQ  EXT  THRD  (MAX  MATE  COND) 

T3EN(I)  =  2ND  TERM  INSIDE  BRACKETS  IN  HEYWOOD  EQ  EXT  THRD  (MIN  MATE  COND) 

T3EA(I)  =  2ND  TERM  INSiiiF  BR'V  KEI’S  xN  HEYWOOD  EQ  EXT  THRD  (ACT  MATE  COND) 


T3IX(I)  =  2ND  TERM  INSIDE  BRACKETS  IN  HEYWOOD  EQ  INT  THRD  (MAX  MATE  COND) 

T3IN(I)  =  2ND  TERM  INSIDE  BRACKETS  IN  HEYWOOD  EQ  INT  THRD  (MIN  MATE  COND) 

T3IA(I)  =  2ND  TERM  INSIDE  BRACKETS  IN  HEYWOOD  EQ  INT  THRD  (ACT  MATE  COND) 

TMEXd)  =  3RD  TERM  INSIDE  BRACKETS  IN  HEYWOOD  EQ  EXT  THRD  (MAX  MATE  COND) 

T4EN(I)  =  3RD  TERM  INSIDE  BRACKETS  IN  HEYWOOD  EQ  EXT  THRD  (MIN  MATE  COND) 

T4EA(I)  =  3RD  TERM  INSIDE  BRACKETS  IN  HEYWOOD  EQ  EXT  THRD  (ACT  MATE  COND) 

T4IX(I)  =  3RD  TERM  INSIDE  BRACKETS  IN  HEYWOOD  EQ  INT  THRD  (MAX  MATE  COND) 

T4IN(I)  =  3RD  TERM  INSIDE  BRACKETS  IN  HEYWOOD  EQ  INT  THRD  (MIN  MATE  COND) 

T4IA(I)  =  3RD  TERM  INSIDE  BRACKETS  IN  HEYWOOD  EQ  INT  THRD  (ACT  MATE  COND) 

SBEXT  =  SUPERIMPOSED  ROOT  STRESS  TOTAE  FROM  EOAD  DIST  EXT  THRD  (MAX  MATE  COND) 

SBENT  =  SUPERIMPOSED  ROOT  STRESS  TOTAE  FROM  EOAD  DIST  EXT  THRD  (MIN  MATE  COND) 

SBEAT  =  SUPERIMPOSED  ROOT  STRESS  TOTAE  FROM  EOAD  DIST  EXT  THRD  (ACT  MATE  COND) 

SBIXT  =  SUPERIMPOSED  ROOT  STRESS  TOTAE  FROM  EOAD  DIST  INT  THRD  (MAX  MATE  COND) 

SBINT  =  SUPERIMPOSED  ROOT  STRESS  TOTAE  FROM  EOAD  DIST  INT  THRD  (MIN  MATE  COND) 

SBIAT  =  SUPERIMPOSED  ROOT  STRESS  TOTAE  FROM  EOAD  DIST  INT  THRD  (ACT  MATE  COND) 

GA^f1A  =  AXIAE  EOAD  FACTOR 

SOCTEX  =  HYDROSTATIC  TENSION  ON  OCTAHEDRAE  PEANE  EXT  THRD  (MAX  MATE  COND) 

SOCTEN  =  HYDROSTATIC  TENSION  ON  OCTAHEDRAE  PEANE  EXT  THRD  (MIN  MATE  COND) 

SOCTEA  =  HYDROSTATIC  TENSION  ON  OCTAHEDRAE  PEANE  EXT  Ti.*<D  (ACT  MATE  COND) 

SOCTIX  =  HYDROSTATIC  TENSION  ON  OCIA.  ,iAE  PEANE  INT  THRD  (MAX  MATE  COND) 

SOCTIN  =  HYDROSTATIC  TENSION  ON  OCT/'EEDRAE  PEANE  INT  THRD  (MIN  MATE  COND) 

SOCTIA  =  HYDROSTATIC  TENSION  ON  OCTAHEDRAE  PEANE  INT  THRD  (ACT  MATE  COND) 

TOCTEX  =  SIMPEE  SHEAR  ON  OCTAHEDRAE  PEANE  EXT  THRD  (MAX  MATE  COND) 

TOCTEN  =  SIMPEE  SHEAR  ON  OCTAHEDRAE  PEANE  EXT  THRD  (MIN  MATE  COND) 

TOCTEA  =  SIMPEE  SHEAR  ON  OCTAHEDRAE  PLANE  EXT  THRD  (ACT  MATE  COND) 

TOCTIX  =  SIMPLE  SHEAR  ON  OCTAHEDRAL  PEANE  INT  THRD  (MAX  MATE  COND) 

TOCTIN  =  SIMPLE  SHEAR  ON  OCTAHEDRAE  PEANE  INT  THRD  (MIN  MATE  COND) 

TOCTIA  =  SIMPLE  SHEAR  ON  OCTAHEDRAL  PLANE  INT  THRD  (ACT  MATE  COND) 

SF1YEX  s  Y.S.  STATIC  S.F.  TRIAX  TENSILE  FILLET  STRESS  EXT  THRD  (MAX  MATE  COND) 

SF1YEN  =  Y.S,  STATIC  S.F.  TRIAX  TENSILE  FILLET  STRESS  EXT  THRD  (MIN  MATE  COND) 

SF1YEA  =  Y.S.  STATIC  S.F.  TRIAX  TENSILE  FILLET  STRESS  EXT  THRD  (ACT  MATE  COND) 

SFIYIX  =  Y.S.  STATIC  S.F.  TRIAX  TENSILE  FILLET  STRESS  INT  THRD  (MAX  MATE  COND) 

SF1YIN  =  Y.S.  STATIC  S.F.  TRIAX  TENSILE  FILLET  STRESS  INT  THRD  (MIN  MATE  COND) 

SF1YIA  =  Y.S.  STATIC  S.F.  TRIAX  TENSILE  FILLET  STRESS  INT  THRD  (ACT  MATE  COND) 

SF2YEX  =  Y.S.  STATIC  S.F.  TRIAX  SHEAR  FILLET  STRESS  EXT  THRD  (MAX  MATE  COND) 
(MAX  DISTORTION  ENERGY  THEORY) 

SF2YEN  =  Y.S.  STATIC  S.F,  TRIAX  SHEAR  FILLET  STRESS  EXT  THRD  (MIN  MATE  COND) 
(MAX  DISTORTION  ENERGY  THEORY) 

SF2YEA  =  Y.S.  STATIC  S.F.  TRIAX  SHEAR  FILLET  STRESS  EXT  THRD  (ACT  MATE  COND) 
(MAX  DISTORTION  ENERGY  THEORY) 

SF2YIX  =  Y.S,  STATIC  S.F.  TRIAX  SHEAR  FILLET  STRESS  INT  THRD  (MAX  MATE  COND) 
(MAX  DISTORTION  ENERGY  THEORY) 

SF2YIN  =  Y.S.  STATIC  S.F.  TRIAX  SHEAR  FILLET  STRESS  INT  THRD  (MIN  MATE  COND) 
(MAC  DISTORTION  ENERGY  THEORY) 

SF2YIA  =  Y.S.  STATIC  S.F.  TRIAX  SHEAR  FILLET  STRESS  INT  THRD  (ACT  MATE  COND) 
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(MAX  DISTORTION  ENERGY  THEORY) 

SF1TEX  =  T.S.  STATIC  S.F.  TRIAX  TENSILE  FILLET  STRESS  EXT  THRD  (MAX  MAIL  COND) 

SF1TEN  =  T.S.  STATIC  S.F.  TRIAX  TENSILE  FILLET  STRESS  EXT  THRD  (MIN  MATL  COND) 

SF1TEA  =  T.S.  STATIC  S.F.  TRIAX  TENSILE  FILLET  STRESS  EXT  THRD  (ACT  MATL  COND) 

SF1TIX  =  T.S.  STATIC  S.F.  TRIAX  TENSILE  FILLET  STRESS  INT  THRD  (MAX  MATL  COND) 

SF1TIN  =  T.S.  STATIC  S.F.  TRIAX  TENSILE  FILLET  STRESS  INT  THRD  (MIN  MATL  COND) 

SF1TIA  =  T.S.  STATIC  S.F.  TRIAX  TENSILE  FILLET  STRESS  INT  THRD  (ACT  MATL  COND) 

SF2TEX  =  T.S.  STATIC  S.F.  TRIAX  SHEAR  FILLET  STRESS  EXT  THRD  (MAX  MATL  COND) 
(MAX  DISTORTION  ENERGY  THEORY) 

SF2TEN  =  T.S.  STATIC  S.F.  TRIAX  SHEAR  FILLET  STRESS  EXT  THRD  (MIN  MATL  COND) 
(MAX  DISTORTION  ENERGY  THEORY) 

SF2TEA  =  T.S.  STATIC  S.F.  TRIAX  SHEAR  FILLET  STRESS  EXT  THRD  (ACT  MATL  COND) 
(MAX  DISTORTION  ENERGY  THEORY) 

SF2TIX  =  T.S.  STATIC  S.F.  TRIAX  SHEAR  FILLET  STRESS  INT  THRD  (MAX  MATL  COND) 
(MAX  DISTORTION  ENERGY  THEORY) 

SF2TIN  =  T.S.  STATIC  S.F.  TRIAX  SHEAR  FILLET  STRESS  INT  THRD  (MIN  MATL  COND) 
(MAX  DISTORTION  ENERGY  THEORY) 

SF2TIA  =  T.S.  STATIC  S.F.  TRIAX  SHEAR  FILLET  STRESS  INT  THRD  (ACT  MATL  COND) 
(MAX  DISTORTION  ENERGY  THEORY) 

SFYEX  =  OVERALL  STATIC  S.F.  EXT  THRD  (MAX  MATL  COND)  BASED  ON  YS 

SFYEN  :  OVERALL  STATIC  .‘'.F.  EXT  THRD  (MIN  MATL  COND)  BASED  ON  YS 

SFYEA  =  OVERALL  STATIC  S  F.  EXT  THRD  (ACT  MATL  COND)  BASED  ON  YS 

SFYIX  =  OVERALL  STATIC  S.'''.  INT  THRD  (MAX  MATL  COND)  BASED  ON  YS 

SFYIN  =  OVERALL  STATIC  S.F.  INT  THRD  (MIN  MATL  COND)  BASED  ON  YS 

SFYIA  =  OVERALL  STATIC  S.F.  INT  THRD  (ACT  MATL  COND)  BASED  ON  YS 

SFTEX  =  OVERALL  STATIC  S.F.  EXT  THRD  (MAX  MATL  COND)  BASED  ON  TS 

SFTEN  =  OVERALL  STATIC  S.F.  EXT  THRD  (MIN  MATL  COND)  BASED  ON  TS 

SFTEA  z  OVERALL  STATIC  S.F.  EXT  THRD  (ACT  MATL  COND)  BASED  ON  TS 

SFTIX  ;  OVERALL  STATIC  S.F.  INT  THRD  (MAX  MATL  COND)  BASED  ON  TS 

SFTIN  =  OVERALL  STATIC  S.F.  INT  THRD  (MIN  MATL  COND)  BASED  ON  TS 

SFTIA  :  OVERALL  STATIC  S.F.  INT  THRD  (ACT  MATL  COND)  BASED  ON  TS 

CL  =  IDAD  CONSTANT 

CD  SIZE  EFFECT 

FCYCLE  r  liJADING  CONDITION  FOR  FATIGUE  EVALUATION 
EOF  =  SURFACE  FINISH  FACTOR  (EXT  THRU) 

ICF  -  SURFACE  FINISH  FACTOR  (INT  THRD) 

KSURF  =  SURFACE  FINISH  TEX njRE  (EXT  TURD) 

HSURFS  =  SURFACE  FINISH  TEXT  STRING  (EXT  THRD) 

I  SURF  =  SURFACE  FINISH  TEXTURE  (INT  THRU) 

ISlIRFS  -  SURFACE  FINISH  TEXT  STRING  (INT  TORD) 

mu-  =  TEMPERATURE  (DIXIREE  F) 

CT  =  TEMPERATURE  EFFECT  FACTOR 

REI.  ::  RELIABILITY  OF  STANDARD  MATERIAL  RRUPERTIES 

CR  ::  RELIABILITY  FACTOR 

EKF'  FATIGUE  STRESS  CONCENTRATION  FACTOR  (EX’TERNAL  THRD) 


A7 


IKF 

EQ 

IQ 

ECK 

ICK 

ARR(I,J)  = 

EC 

IC 

ESE 

ISE 

EKT 

IKT 

KTC(N,J)  = 
APPLD 

CAPPLD(14)= 


TLCF  = 

EMXOCT  = 

IMXOCT  = 

ESPX  = 

ESPN  = 

ESPA  = 

ISPX  = 

ISPN  = 

ISPA  = 

S(I,J)  = 


MEAN(I) 
ALT(I) 
FSF(I,J)  = 


FATIGUE  STRESS  CONCENTRATION  FACTOR  (INTERNAL  THRD) 
NOTCH  SENSITIVITY  (EXTERNAL  THRD) 

NOTCH  SENSITIVITY  (INTERNAL  THRD) 

FATIGUE  STRESS  CONCENTRATION  MOD  FACTOR  (EXTERNAL  THRD) 
FATIGUE  STRESS  CONCENTRATION  MOD  FACTOR  (INTERNAL  THRD) 
ARRAY  HOLDING  NOTCH  SENSITIVITY  CURVE  DATA 
CURVE  NUMBER  -  NOTCH  DATA  ARRAY  (EXTERNAL  THRD) 

CURVE  NUMBER  -  NOTCH  DATA  ARRAY  (INTERNAL  THRD) 
MODIFIED  ENDURANCE  LIMIT  (EXTERNAL  THRD) 

MODIFIED  ENDURANCE  LIMIT  (INTERNAL  THRD) 

THEORETICAL  STRESS  CONCENTRATION  FACTOR  (EXTERNAL  THRD) 
THEORETICAL  STRESS  CONCENTRATION  FACTOR  (INTERNAL  THRD) 
THEORETICAL  STRESS  CONCENTRATION  CURVE  DATA 
APPLIED  LOAD  IN  KIP  TO  THREAD  JOINT 
MAX  STATIC  APPLIED  LOAD  FOR  SAFETY  FACTOR  OF  1 
1.3,5,7,9,11  RELATIVE  TO  YIELD  STRENGTH 

13  OVERALL  BASED  ON  YS 

14  OVERALL  BASED  ON  TS 

2,4,6,8,10,12  RELATIVE  TO  TENSILE  STRENGTH 

THREAD  LOAD  CONCENTRATION  FACTOR,  APPLIED  ONLY  TO 
HEYWOOD'S  FORMULA,  TLCF=1.5  Normal  RANGE  1  -  4 
MAX  OCTAHEDRAL  TENSILE  STRESS  (EXTERNAL  THRD) 

MAX  OCTAHEDRAL  TENSILE  STRESS  (INTERNAL  THRD) 

STRESS  CAUSED  BY  PRELOAD,  MAX  MATL  COND  (EXT  THRD) 

STRESS  CAUSED  BY  PRELOAD,  MIN  MATL  COND  (EXT  THRD) 

STRESS  CAUSED  BY  PRELOAD,  ACT  MATL  COND  (EXT  THRD) 

STRESS  CAUSED  BY  PRELOAD,  MAX  MATL  COND  (INT  THRD) 

STRESS  CAUSED  BY  PRELOAD,  MIN  MATL  COND  (INT  THRD) 

STRESS  CAUSED  BY  PRELOAD,  ACT  MATL  COND  (INT  THRD) 

STRESS  CAUSED  BY  MAX  &  MIN  APPLIED  LOADS 
1=1  MAX  MATL  COND  (EXT  THRD)  J=1  MAX  LOAD 

1=2  MIN  MATL  COND  (EXT  THRD)  J=2  MIN  LOAD 

1=3  ACT  MATL  COND  (EXT  THRD) 

1=4  MAX  MATL  COND  (INT  THRD) 

1=5  MIN  MATL  COND  (INT  THRD) 

1=6  ACT  MATL  COND  (INT  THRD) 

MEAN  STRESS  (SAME  I  MEANING  AS  FOR  S(I,J)  ABOVE) 
ALTERNATING  STRESS  (I  -  SAME  AS  ABOVE) 

FATIGUE  LIFE  SAFETY  FACTOR  FOR  I  CYCLE, 

WHERE  1=1;  10**3  CYCLES 
1=2:  3* 10**4  " 

1=3:  10**4 
1=4:  4*10*»4  " 

1=5:  10**5 
I=b:  10**6 
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I,  V.""  V  ■  T*  t I  1.^  1.^  i.>,  L"w 


T 


UATt 

WVN 

SCN 

Pii 

3DFLAG 

SUBCODE 

SERIES 


SEHSTR 

METriD 

SPY 

SFT 


1=7:  10»»7  " 

J=mTL  CONDITION 

1  -  mX  MATE  COND  EXT  THRD 

2  -  MIN  MATE  COND  EXT  THRD 

3  -  ACT  MATE  COND  EXT  THRD 

4  -  MAX  mTE  COND  INT  TriRD 

5  -  MIN  MATE  COND  INT  THRD 

6  -  ACT  MATE  COND  INT  THRD 

J=  7  -  MN  SAFETY  FACTOR  OF  OVER  AEE  MATE  COND 
DATE  PART  MACHINED  (ddmmrayy)  INTEGER 
WAIVER  NUMBER  -  STRING 
SHOP  CONTROE  NUiTBER  -  STRING 
PART  iWMBER  -  STRING 

FLAG  FOR  TYPE  OF  ANALYSIS,  STATIC  OR  STATIC  +  FATIGUE 
10  CHARACTER  SECONDARY  IDENTIFIER 
SERIES  IDENTIFIER  -  INTEGER 

1  -  V-THREAD 

2  -  AGTE 

3  -  STUB  ACME 
n  -  BUTTRESS 

5  -  PF20  BUTTRESS 

SERIES  TYPE  (UNC,  BUTT,  UNF,  ETC.) 

STRING  DEFINING  ANALYSIS  MODE  (Static,  or  Static+Fatigue) 
OVERALL  SF  BASED  ON  YS 
OVERALL  SF  BASED  ON  TS 
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A. 2  Coomon  Blocks 


»*»  CX)M«N  BLOCK  CB1.THRD 

CHARACTER* 10  WVN , SCN , PN , SUBCODE , SERSTR , STD ( 4 ) , CLASS , DATE 
CHARACTER»20  METHD , ESURFS , ISURFS 
CHARACTER* 32  FNAME 

INTEGER*^  SDFLAG ,  SERIES ,  ESURF ,  ISURF ,  TEMP , FUGO 
REAL*4  PI,EJX,EJN,EJA,EPX,EPN,EPA,EMX,EMN,EMA,IJX,IJN,IJA,IPX,IPN, 
*IPA,IMX,IMN,IMA,A(2),G,T(2),ETS,irS,EYS,IYS,YS,TS,EJV,EPV, 

*EMV , IJV , IPV , IMV , LOAD ( 3 ) , PRES ( 2 ) , HV ,SEMAX , SEMIN , SEACT , SIMAX , SIMIN , 
*SIACT , PITCH , LE ,  AT ,  VAR  ( 6 ) ,  HDI A , ODI A , N ,  ERR ,  IRR ,  PFANG , CUNG ,  PFRAD , 
*CLRAD , SECTOR , REL , FF , TORQ , FPFRAC , TLCF , BMJDIA 
COMMON  /ONE/  SDFLAG, SERIES, ESURF, ISURF, TEMP, FLAGO, PI ,EJX,EJN, 
*EJA,EPX,EPN,EPA,EMX,EMN,EMA,IJX,IJN,IJA,IPX,IPN,IPA,IMX,IMN,IMA,A, 
*G, T, ETS, ITS, EYS,IYS,YS,TS,EJV,EPV,EMV, IJV, IPV, IMV, LOAD, 

*PRES , HV , SEMAX , SEMIN , SEACT , SIMAX , SIMIN , SI ACT , PITCH , LE , AT , VAR , HDI A , 
*ODIA,N,ERR,IRR, PFANG , CLANG , PFRAD , CLRAD , SECTOR , REL , FF , TORQ , FPFRAC , 
*TLCF , BMJDIA , WVN , SCN , PN , SUBCODE , SERSTR , STD , CLASS , DATE , METHD , ESURFS , 
* ISURFS, FNAME 


***  COPMON  BLOCK  CB2.THRD  *** 

INTEGER*^  INTFLG,LIFE(6) 

REAL* 4  BUS , BLD , SARX , SARN , SARA , SAR V , BLV , HELI XS , ASHEAR , SSTRESS , 

*SHEX , SHEN , SHEA , KAEX , KAEN , KAEA , KAIX ,KAIN , KAIA , STEX , STEN , STEA , STIX , 
*STIN , STI A , SOCTEX , SOCTEN , SOCTEA , SOCTI X , SOCTIN , SOCTIA , TOCTEX , TOCTEN , 
•TOCTEA , TOCTI X , TOCTI N , TOCT I A , EQ , IQ , YSA ( 7 ) , FSF ( 7 , 7 ) , MEAN ( 6 ) , ALT ( 6 ) , 
*APPLD , CAPPLD ( 1 4 ) , PREMAX , TORQMAX , HE  1 , HE2 , H1 1 , HI2 
COPMON  /TWO/  INTFLG, LIFE, BLS,BLD,SARX,SARN, SARA, SARV, BLV, HELIXS, 
•ASHEAR , SSTRESS , SHEX , SHEN , SHEA , KAEX , KAEN , KAEA , KAIX ,KAIN , KAIA , STEX , 
*STEN ,STEA ,STIX ,STIN , STIA , SOCTEX , SOCTEN , SOCTEA ,SOCTIX , SOCTIN , SOCTIA 
* , TOCTEX , TOCTEN , TOCTEA , TOCTI X , TOCTIN , TOCTI A , EQ , IQ , YSA , FSF , MEAN , ALT , 
•APPLD , CAPPLD , PREMAX , TORQMAX , HE  1 , HE2 , HIT , HI2 


***  C0M10N  BLOCK  CB3.THRD  *** 

REAL*  4  BLPFS , BLCFS , BLPFD , BLCFD , TPE , TP I , EEX , EEN , EEA , El X , EIN , El A , 

*M 1 EX ,M 1 EN ,M 1 EA ,M 1 1 X ,M 1 1N ,M 1 lA , ETHETAX , ETHETAN , ETHETAA , ITHETAX , 
•ITHETAN , ITHETAA , DPEX ( 7 ) , DPEN ( 7 ) , DPEA ( 7 ) , DPI X ( 7 ) , DPIN ( 7 ) , DPIA ( 7 ) , 
*BEX(7),BEN(7),BEA(7),BIX(7),BIN(7),BIA(7),AEX(7),AEN(7),AEA(7), 
*AIX(7),AIN(7),AIA(7),KBEX,KBEN,KBEA,KBIX,KBIN,KBIA,PTX(7),PTN(7), 


*PTA(7) ,T1X(7) ,T1N(7) ,T1A(7) ,T2EX(7) ,T2EN(7) ,T2E:A(7) ,T2IX(7),T2IN(7 
») ,T2IA(7) ,T3EX{7) ,T3EN(7) ,T3EA(7) ,T3IX(7) ,T3IN(7) ,T3IA(7) ,T4EX(7) , 
»T4EN(7),T4EA(7),T4IX(7),T4IN(7),T4IA(7),SBEXT,SBENT,SBEAT,SBIXT, 
»SBINT , SBIAT , GAPMA , SF 1 YEX , SF 1 YEN , SF 1 YEA , SF 1 YIX , SF 1 YIN , SF 1 YIA , SF2YEX 
» , SF2YEN ,SF2YEA ,SF2YIX , SF2YIN , SF2YIA ,SF 1 TEX , SF 1 TEN , SF ITEA , SF 1TIX , 
»SF 1 TIN , SF 1 TIA , SF2TEX , SF2TEN , SF2TEA , SF2TIX , SF2TIN , SF2TIA , SFYEX , SFYE 
»N , SFYEA , SFYIX , SFYIN , SFYI A , SFTEX , SFTEN ,SFTEA , SFTIX , SFTIN , SFTI A , 
»ESPX , ESPN , ESPA , ISPX , ISPN , ISPA , S( 1 2 , 2 ) , SFY , SFT , LDYE , LDYI , 
»LDTE,LDTI,CR,KFEX(7) ,KFEN(7) ,KFEA(7) ,KFIX(7) ,KFIN(7) ,KFIA(7) ,KPEX, 
»KPEN , KPEA , KPIX , KPIN , KPI A , KQEX , KQEN , KQEA , KQIX , KQIN , KQI A , KNEX , KNEN , 
*KNEA , KNIX ,KNIN , KNIA , CL , CD , ECF , IGF ,CT , ESE , ISE , EMXOCT , IMXOCT 
C0^f10N  /THREE/  BLPFS,BLCFS,BLPFD,BLCLD,TPE,TPI,EEX,EEN,EEA,EIX, 

» E I N , E I A , M 1 EX , M 1 EN , M 1 EA , M 1 I X , M 1 I N , M 1 I A , ETHETAX , ETHET AN , ETHETAA , 
•ITHETAX , ITHETAN , ITHETAA , DPEX , DPEN ,DPEA , DPIX , DPIN , DPIA , BEX , BEN , 

*BEA , BIX , BIN , BIA , AEX , AEN , AEA , AIX , AIN , AIA , KBEX , KEEN , KBEA , KBIX , 
•KBIN,KBIA,PTX,PTN,PTA,T1X,T1N,T1A,T2EX,T2EN,T2EA,T2IX,T2IN,T2IA, 
»T3EX , T3EN ,T3EA,T3IX,T3IN,T3IA, T4EX , T4EN , T4EA , T4IX , T4IN , T4IA , SBEXT , 
«SBENT , SBEAT , SBIXT , SBINT , SBI AT , GAPMA , SF 1 YEX , SF 1 YEN , SF 1 YEA , SF 1 YIX , 
•SF 1 YIN , SF 1 YI A , SF2YEX , SF2YEN , SF2YEA , SF2YIX , SF2YIN , SF2YI A , SFYEX , 
•SFYEN , SFYEA , SFYIX , SFYIN , SFYIA , SFTEX , SFTEN , SFTEA , SFTIX , SFTIN , SFTI A , 
•ESPX , ESPN , ESP A , ISPX , ISPN , ISPA , S , SFY , SFT , LDYE , LDYI , 

•LDTE , LDTI , CR , KFEX , KFEN , KFEA , KFIX , KFIN , KFIA , KPEX , KPEN , KPEA , KPIX , 

•KP IN , KPI A , KQEX , KQEN , KQEA , KQI X , KQI N , KQI A , KNEX , KNEN , KNEA , KNIX , KNIN , 
•KNI A ,  CL ,  CD ,  ECF ,  ICF ,  CT ,  ESE ,  ISE ,  EMXOCT ,  IMXXT 


A.  3  Compile  and  Load  I  rust  ructions 


COMPILE  iNSTriUCTIOiMS 


LOAD  INSTRUCTIONS 


F77  THREAD 
F77  H2dVE£ 
F77  H23ACM 
F77  H2dSTB 
F77  H28BUT 
F77  PF20 
F77  INTRO 
F77  SAVE 
F77  RECALL 
F77  INPUT 
F77  EDIT 
F77  OUTPT 
F77  INTCHK 
F77  BKLASH 
F77  PCVAR 
F77  TCLASS 
F77  CALCU 
F77  HECALC 
F77  SURFAR 
F77  SAREA 
F77  PRELOAD 
F77  TORSION 
F77  LDHIST 
F77  HOOP 
F77  SSHEAR 
F77  AXSCF 
F77  HEYWD 
F77  OCT 
F77  STATSF 
F77  NOTCH 
F77  TSCF 
F77  FATIGUE 
F77  FOUTPT 


SEG  -LOAD 
SEG  rev  19.2 
$  LO  THREAD 
$  LO  H28VEE 
$  LO  H28ACM 
$  LO  H28STB 
$  LO  H28BUT 
$  LO  PF20 
$  LO  INTRO 
$  LO  SAVE 
$  LO  RECALL 
$  LO  INPUT 
$  LO  EDIT 
$  LO  OUTPT 
$  LO  INTCHK 
$  LO  BKLASH 
$  LO  PCVAR 
$  LO  TCLASS 
$  LO  CALCU 
$  LO  RECALC 
$  LO  SURFAR 
$  LO  SAREA 
$  LO  PRELOD 
$  LO  TORSION 
$  LO  LDHIST 
$  LO  HOOP 
$  LO  SSHEAR 
$  LO  AXSCF 
$  LO  HEYWD 
$  LO  XT 
$  LO  STATSF 
$  LO  NOTCH 
$  LO  TSCF 
$  LO  FATIGUE 
$  LO  FOUTPT 
$  LI  VAPPLB 
$  LI 

LOAD  COMPLETE 
$  MA  3 


$  Q 
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A. 4  Main  Program  and  Subroutines 


*»*  THREAD  PROGRAM  CONTROL  MODULE  ««» 

««»««««*»»«*«»«««««««*»«««««»*««««*«««««««»»«*«««««««»««««»»«««»«»«»«« 


PROGRAM  THREAD 


CHARACTER* 3  RETN 
INTEGER»4  PICK 
$ INSERT  CB1.THRD 
$INSSRT  CB2.THRD 
$ INSERT  CB3.THHD 

EXTERNAL  TNOUA 
PI=3. 14139205^39 
C 


CALL  TNOUA(: 1 13014, INTS(4)) 


10  WRITEd,*) 
WRITEd,*) 

t  t 

'**»  THREAD  PROGRAM 

CONTROL  MENU  »»*’ 

WRITEd,*) 

WRITEd,*) 

%  i 

'INTRODUCTION  . 

. .  1' 

WRITEd,*) 

'RECALL  THREAD  FILE 

WRITEd,*) 

'INPUT  THREAD  DATA  . 

.  3' 

WRITEd,*) 

'EDIT  THREAD  DATA  .. 

.  4' 

WRITEd,*) 

'LIST  THREAD  DATA  .. 

.  5* 

WRITEd,*) 

'SAVE  THREAD  DATA  .. 

WRITEd,*) 

'STATIC  AND  FATIGUE 

ANALYSIS .  7' 

WRITEd,*) 

'EXIT  TO  PRIMOS  .... 

WRITEd,*) 

t  f 

20  CALL  TNOUA ( ' ENTER :  ’ , INTS ( 7 ) ) 
READ(1,’(I1)',ERR=20)  PICK 
IF(PICK.LT.1.0R.PICK.GT.8)  GOTO  20 
IF(PICK.EQ. 1)  THEN 
CALL  INTRO 
GOTO  10 
ENDIF 

IF(PICK.EQ.2)  THEN 
CALL  RECALL 
CALL  SL'3FAR 
GOTO  10 
ENDIF 
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IF(PICK.EQ.3.'  then 
CALL  INPUT 
GOTO  10 
ENDIF 

IF(PICK.E0.4)  TilEN 
CALL  EDIT 
GOTO  10 
ENDIF 

IF  (PICK.  EG. -5)  THEN 
CALL  OUTPT 

CALL  TNOuAC  PRE.SS  RETURN  FOR  PROGRAM  CONTROL  MENU' ,INTS(42) ) 

READ (1,30;  HETN 
IF(RETN.NE.'  ')  GOTO  40 
30  FORMAT(AI) 

40  CALL  TNOUA  ( :  1 1 53 1 4 ,  INTS 4 ) ) 

GOTO  10 
ENDIF 

IF(PICK.EQ.b)  THEN 
CALL  SAVE 
'GOTO  10 
ENDIF 

IF(PICK.EQ.Y)  THEN 
CALL  CALCU 
GOTO  10 
ENDIF 

IF(PICK.EO.O;  THEN 
CALL  EXIT 
ENDIF 

RETURN 

END 
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»»*»»***»»»»«»*»»«»«»»«»*»*»»«»»«»«*»*»»»»*»*«»»»*»»»»»»»»*«*«««»»»»«» 

***  SUBROUTINE  TO  GENERATE  H28  HANDBOOK  DATA  FX)R  VEE  THREAD  FORM  *»» 


This  subroutine  generates  Unified  National  thread  form  geometry  for 
V- threads  as  specified  in  FED-STD-H28/2  dated  31  March  1978 

SUBROUTINE  H28VEE 
REAL*4  U0,U1,U2,L1 
$ INSERT  CB1.THRD 
$INSERT  CB2.THRD 
$INSEfiT  CB3.THRD 

HV=.8660254/N 
HE1=.708333*HV 
HI1=.66766*HV 
HE2=.625*HV 
HI2=.625*HV 
PITCH=1./N 
L1=BMJDIA 
PFANG=30. 

CLANG=30. 

PFRAD=PFANG»P 1/180. 

CLRAD=aANG*PI/l80. 

ERR=PITCH/8. 

IRR=PITCH/8. 

IF(SERSTR(1:3).EQ.'UN  ' .AND.N.GE. 12. )  L1=9.»PITCH 
IF(SERSTR( 1 :4) .EQ. 'UNEF' )  L1=9.»PITCH 

U0=( .0015»BMJDIA»»( 1 ./3. ) )+.0015»L1**.5+.015*( (PITCH)»»(2./3. ) ) 

IF(CLASS(1;2).NE.'3  ’)  THEN 

U1=.3*U0 

ELSE 

U1=0. 

ENDIF 

IF(CLASS(1:2).EQ.'1  ')  THEN 
A(1)=1.5»U0 

T(1)=.09*(PITCH»»(2./3.)) 

A(2)=1.95*U0 

T(2)=HV/6.+A(2) 

ENDIF 

IF(CLASS(1;2).EQ. '2  ')  THEN 
A(1)=1.0»U0 

T(1)=.06«(PITCH*»(2./3.)) 

A(2)=1.3»U0 

T(2)=HV/6.+A(2) 

ENDIF 

IF(CLASS(1:2).EQ.'3  ')  THEN 
A(1)=.75»U0 

T(1)=.06»(PITCH»»(2./3.)) 


/*  HEIGHT  OF  SHARP  V-THREAD 


/»  MIN  LENGTH  CF  ENGAGEMENT 


ifi  Ji 


w :  vj  tj ^  ^  S  J.'"*  i.*  . 


A(2)=.975»U0 

T(2)=HV/6.+A(2) 

ENDIF 

IF(BMJDIA.LT..25.AND.CLASS(1:2).NE.'3  ')  THEN 
U2= . 05» ( PITCH»» ( 2 . / 3 . ) )+ . 03*PITCH/BMJDIA- . 002 
IF(U2.LT. .25«PITCH-.4*PITCH»*2.)  U2=.25*PITCH-.4»PITCH**2. 
IF(U2.GT.  .39WITCH)  U2=  .39WITCH 
GOTO  10 
ENDIF 

IF(BMJDIA.GE..25.AND.CLASS(1;2).NE.'3  ')  THEN 
U2= . 25»PITCH- . 4»PITCH*»2 . 

IF(N.LT.4,)  U2=.15*PITCH 

GOTO  10 

ENDIF 

U2= . 05* ( PITCH»» ( 2 . / 3 . ) )+ . 03*PITCH/BMJDIA- . 002 
IF(N.LE.80.AND.N.GE.13.)  THEN 

IF(U2.LT. .23*PITCH-1 .5»PITCH»»2.)  U2= . 23»PITCH- 1 .5«PITCH»«2. 
ENDIF 

IF ( N . LE . 1 2 . AND . U2 . LT . . 1 20«PITCH )  U2= . 1 20»PITCH 
IF (U2 .GT . . 394»PITCH )  U2= . 394»PITCH 
10  EJX=BMJDIA-U1 
EJN=EJX-T(1) 

EPX=BMJDIA-2.»( .375»HV)-U1 
EPNsEPX-A ( 1 ) 

EMX=BMJDIA-2 . » ( . 7083333*HV )-U 1 

EMN=EMX 

IJN=EJX+U1 

IJX=IJN+T(2) 

IPN=BMJDI A-2 . * ( . 375*HV ) 

IPX=IPN+A(2) 

IMN=BMJDIA-2 . » ( . 625»HV ) 

IMX=IMN+U2 

SEMAX=,144338*PITCH 

SEMINr. 072 1688»P ITCH 

SIMAX=.108253*PITCH 

SIMINr . 0360844»PITCH 

EJX= AINT ( EJX» 1 0000 . + . 5 ) / 1 0000 . 

EJN= AINT ( EJN* 1 0000 . + . 5 ) / 1 0000 . 

EPX= AINT ( EPX» 1 0000 . + . 5 ) / 1 0000 . 

EPNzAINT ( EPN» 1 0000 . + . 5 ) / 1 0000 . 

EMX=AINT ( EMX* 1 0000 . + . 5 ) / 1 0000 . 

EMN= AINT ( EMN* 1 0000 .+. 5 )/ 1 0000 . 

IJXrAINT ( IJX» 1 0000 . + . 5 ) / 1 0000 . 

IJN= AINT ( I JN* 1 0000 . + . 5 ) / 1 0000 . 

IPX=AINT ( IPX» 1 0000 . + . 5 ) / 1 0000 . 

IPN=AINT (IPN» 1 0000 . + . 5 ) / 1 0000 . 

IMXr AINT ( IMX» 1 0000 . + . 5 ) / 1 0000 . 

IMN=AINT ( IMN» 1 0000 . + . 5 ) / 1 0000 . 

RETURN 

END 
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C 

C  »»»  SUBROUTINE  TO  GENERATE  H28  HANDBOOK  DATA  FOR  ACME  THREADS  **• 

Q  ««««»«««««««««««««««««««»««««*»»«««»»»«»»»»»»»»»»»•»»•»»»*»»»«»»»«»»*» 

C 

SUBROUTINE  H28ACM 
HEAL* 4  STO 
$ INSERT  CB1.THHD 
$ INSERT  CB2.THRD 
$INSERT  CB3.THRD 
PITCH=1./N 
PFANG=29./2. 

CLANG=29./2. 

PFRAD=PFANG*PI/180. 

CLRAD=CLANG*PI/180. 

HV= . 5*P ITCH/TAN ( PFRAD ) 

IF(CLASS(1:2).EQ.'2G')  THEN 
EJX=BMJDIA 
EJN=BMJDIA-.05*PITCH 
IPN=BMJDIA-.5»PITCH 
EPX= IPN- . 008»BMJDIA»* . 5 
EPN=EPX- ( . 030*PITCH»» . 5+ . 006*BMJDIA»* . 5 ) 

IF(N.GT.10.)  G=.010 
IF(N.LE.10.)  G=.020 
EMX=BMJDIA-PITCH-G 

EMN=EMX- 1 . 5* ( . 030»PITCH«* . 5+ . 006*BMJDIA»» . 5 ) 

IJN=BMJDIA+G 

IJX=IJN+G 

IPX=IPN+( . 030*PITCH»* . 5+ .006*BMJDIA»» . 5 ) 

IMBrBMJDIA-PITCH 

IMN=BMJDIA-PITCH 

IMX=IMN+.05»PITCH 

ERR=.06»PITCH 

IRR=.06»PITCH 

SEMAXz ( . 3707*P ITCH- . 259»G ) /TAN ( PFRAD ) « . 5 
SEMIN=SEMAX- . 5* ( . 03»PITCH*» . 5+. 006»BMJDIA»» . 5 ) 

STO=G-  ( .  03»PITCH»» .  5+ .  OOt)»BMJDIA»» .  5 ) 

IF(STO.GE.O.)  THEN 

SIMAXr ( . 3707»P ITCH- . 259*G ) /TAN ( PFRAD ) * . 5 

SIMIN=SIMAX-STO 

ELSE 

SIMINz ( . 3707»P ITCH- . 259»G ) /TAN ( PFRAD ) » . 5 
SIMAX=SIMIN-STO 
ENDIF 
GOTO  50 
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IF(CLASS(1:2).EQ.'3CJ')  THEN 
EJX=BMJDIA 

EJN=BMJDIA-.05»PITCH 

IPN=BMJDIA-.5*PITCH 

EPXzIPN- . 006*BMJDIA«» . 5 

EPN=EPX- ( . Q 1 4»PITCH»» . 5+ . 0028»BMJDIA»* . 5 ) 

IF(N.GT.10.)  G=.010 

IF(N.LE.10.)  G=.020 

EMX=BMJDIA-PITCH-G 

EMN=EMX-1.5*(.01 4  »P ITCH*  » . 5+ . 0028»BMJDIA*» . 5 ) 

IJNrBMJDIAt-G 

IJX=IJN+G 

IPX=IPN+ ( . 0 1 4»PITCH»» . 5+ . 0028*BMJDIA»* . 5 ) 

IMB=BMJDIA-PITCH 

IMN=BMJDIA-PITCH 

IMX=IMN+.05»PITCH 

ERR=.06«PITCH 

IRR=.06*PITCH 

SEMAX=( . ^707»PITCH-.259»G)/TAN(PFRAD)».5 
SEMIN=SEMAX- . 5* ( . 0 1 4*PITCH»» . 5+ . 0028*BMJDIA»» . 5 ) 
STOrG- ( . 0028«BMJDIA»» . 5+ . 01 4*PITCH»» . 5 ) 
IF(STO.GE.O.)  THEN 

SIMAX=(.3707*PITCH-.259»G)/TAN(PFRAD)».5 

3IMIN=SIMAX-ST0 

ELSE 

SIMIN:(.3707»PITCH-.259*G)/TAN(PFRAD)».5 
SIMAX:SIM1N-ST0 
END  IF 
GOTO  50 
END  IF 

IF(CLAS3(1:2).EQ, '4G’ )  THEN 
EJXzBMJDIA 

EJN=BMJDIA-.05*PITCH 

IPN=BMJDIA-.5»PITCH 

EPX=  IPN- .  004*BI'iJDI  A»* .  5 

EPN=EFX- ( . 0 1 U»P ITCH** . 5+ . 002»BMJDIA»* . 5 ) 

IFIN.GT. 10. j  G:,010 
IFIN.LE.  10. }  G=.020 
EMX=BM.JDIA-PITCH-G 

aiN-F^MX-l  .5*^  .010*PITCH**.5+.002»BMJDIA**.5) 

IJN-BM.JDIA+G 

IJX:IJN+G 

I PX= I PN> ( , 0 1 0*PITCH*» . 5+ . 002»BMJDIA»» . 5 ) 
IMH-HM.!I)IA-PITCH 


IMN=BMJDIA-PITCH 

IMX=IMN+.05»PITCH 

ERR=.06»PITCH 

IRR=.06»PITCH 

3EMAX= ( . 3707»PITCH- . 259*0 ) /TAN ( PFRAD ) * . 5 
SEMIN=SEMAX- . 5» ( . 0 1 0»PITCH»» . 5+ . 0020»BMJDIA»» . 5 ) 

STOrG- ( . 0020*BMJDI A»» . 5+ . 0 1 0»PITCH»* . 5 ) 

IF(STO.GE.O.)  THEN 

SIMAX= ( . 3707*PITCH- .259*G)/TAN(PFRAD)».5 

SIMIN=SIMAX-STO 

ELSE 

SIMIN= ( . 3707*PITCH- . 259*G ) /TAN ( PFRAD ) » . 5 
SIMAX=SIMIN-ST0 
ENDIF 
GOTO  50 
ENDIF 

IF(CLASS(1:2).EQ.'2C' )  THEN 
EJX=BMJDIA 

EJN=BMJDI A- . 0035»BMJDIA»» . 5 

IPN=BMJDIA-.5*PITCH 

EPX=IPN- . 008*BMJDIA«* . 5 

EPN=EPX- ( . 030»PITCH»* . 5+ . 006»BMJDIA»» . 5 ) 

IFCN.GT.IO.)  G=.010 
IF(N.LE.10.)  G=.020 
EMX=BMJDIA-PITCH-G 

EMN=EMX- 1 . 5* ( . 030*PITCH*« .5+ . 006»BMJDIA*» . 5 ) 

IJN=BMJDIA+ . 00 1 »BMJDIA»» . 5 

IJX=IJN+ . 0035*BMJDIA»» . 5 

IPX=IPN+ ( . 030»PITCH»* . 5+ . 006«BMJDIA»» . 5 ) 

IMB=BMJDIA-PITCH 
IMN=BMJDIA-PITCH+. 1»PITCH 
IMXrIMN+.05»PITCH 
ERR=.07*PITCH 
IRR=.07»PITCH 

SEMAX= ( . 3707»PITCH- . 259*G ) /TAN ( PFRAD ) » . 5 
SEMIN=SEMAX- . 5* ( .030«PITCH»» . 5+ . 006*BMJDIA»» .5) 

STO= . 0035»BMJDIA»* . 5- ( . 006«BMJDIA»* . 5+ . 03*PITCH«* . 5 ) 
IF(STO.GE.O.)  THEN 

SIMAX= ( . 3707*P ITCH- . 259* . 00 1 ♦BMJDI A»» . 5 ) /TAN ( PFRAD ) » . 5 

SIMIN=SIMAX-STO 

ELSE 

SIMIN= ( . 3707  »P ITCH- . 259* . 00 1 *BMJDIA»» . 5 ) /TAN ( PFRAD ) » . 5 
SIMAX=SIMIN-STO 
ENDIF 
GOTO  90 


ENDIF 

IF(CLASS(1:2).EQ.'3C' )  THEN 
EJX=BMJDIA 

EJN=BMJDI A- . 00 1 5»BMJDI A»» . 5 

IPN=BMJDIA-.5*PITCH 

EPX=IPN- . 006»BMJDIA»« . 5 

EPNrEPX- (.01 4»PITCH»» . 5+ . 0028*BMJDIA»* . 5 ) 

IF(N.GT.10.)  G=.010 
IFCN.LE.IO.)  G=.020 
EMX=BMJDIA-PITCH-G 

EMN=EMX- 1 . 5» ( . 0 1 4*PITCH»» . 5+ . 0028«BMJDIA»» . 5 ) 

IJN=BMJDIA+ . 00 1 »BMJDIA«* . 5 

IJX=I JN+ . 0035*BMJDIA*» . 5 

IPX= IPN+ (.01 4»PITCH»* . 5+ . 0028«»4JDIA»» . 5 ) 

IMB=BMJDIA-PITCH 

IMN=BMJDIA-PITCH+. 1»PITCH 

IMX=IMN+.05»PITCH 

ERR=.07»PITCH 

IRR=.07»PITCH 

SEMAX= ( . 37  07  »PITCH- . 259*G ) /TAN ( PFRAD ) » . 5 
SEMIN=SEMAX- . 5* ( . 0 1 4*PITCH*« . 5+ . 0028*BMJDIA** . 5 ) 

STO= . 0035»BMJDI A»* . 5- ( . 0028*BMJDIA»» . 5+ . 0 1 4«PITCH*» . 5 ) 
IF(STO.GE.O.)  THEN 

SIMAX= ( . 3707»PITCH- .259* .00t*BMJDIA»* .5) /TAN (PFRAD)* .5 

SIMIN=SIMAX-STO 

ELSE 

SIMIN= ( . 3707  »PITCH- . 259* • 00 1 *BMJDIA»» . 5 ) /TAN ( PFRAD ) » . 5 
SIMAX=SIMIN-STO 
ENDIF 
GOTO  90 
ENDIF 

IF(CLASS(1:2).EQ.'4C’ )  THEN 
EJX=BMJDIA 

EJN=BMJDI A- . 00 1 *BMJDIA»* . 5 

IPN=BMJDIA-.5*PITCH 

EPX=IPN- . 004*BMJDIA** . 5 

EPNrEPX- (.01 0*P ITCH** . 5+ . 002*BMJDIA»» . 5 ) 

IF(N.GT.10.)  G=.010 
IF(N.LE.10.)  G=.020 
EMX=BMJDIA-PITCH-G 

EMN=EMX-1 .5*( .010*PITCH**.5+.002*BMJDIA»».5) 

IJN=BMJDI A- . 00 1 *BMJDIA** . 5 

IJX=IJN+ . 002*BMJDIA** . 5 

IPX= IPN+ ( . 0 1 0*PITCH»* . 5+ . 002»BMJDIA»* . 5 ) 

IMB=BMJDIA-PITCH 
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IMNrBMJDI A-PITCH+ . 1 »PITCH 
IMX=IMN+.05*PITCH 
ERR=.07*PITCH 
IRR=.07»PITCH 

SEMAX= ( . 3707 *PITCH- . 259*0 ) /TAN ( PPRAD ) » . 5 
SEMINrSEMAX- . 5* ( . 0 1 0*PITCH*» . 5+ . 002»BMJDIA»» . 5 ) 

ST0= . 002*BMJDI A»» . 5- ( . 002»BMJDIA*» . 5+ . 0 1 »PITCH«» . 5 ) 
IF(3TO.GE.O.)  THEN 

SIMAX= ( . 3707*PITCH- . 259* • 00 1 *BMJDIA»* . 5 ) /TAN ( PFRAD ) * . 5 

SIMIN=SIMAX-STO 

ELSE 

SIMIN= ( . 3707*PITCH- . 259* . 00 1 »BMJDIA»» . 5 ) /TAN ( PFRAD ) * . 5 
SIMAX=SIMIN-STO 
ENDIF 
GOTO  90 
ENDIF 

IF(CLASS(1:2).EQ. '5C' )  THEN 
EJX=BMJDIA-.025*BMJDIA»».5  /*  B 

EJN=EJX- . 00 1 5*BMJDIA*» . 5 
IPN=EJX-.5*PITCH 
EPX= IPN- . 008*BMJDI A»» . 5 
EPN=EJX-  (.01  i4»PITCH»» .  5+ .  0028»BMJDIA»» .  5 ) 

IF(N.GT.10.)  G=.010 
IF(N.LE.10.)  G=.020 
EMX=EJX-PITCH-G 

EMN=EMX- 1 . 5* ( . 0 1 4»PITCH»« . 5+ . 0028*BMJDIA»* . 5 ) 

IJN=EJX+ . 00 1 “BMJDIA** . 5 

IJX=IJN+ . 0035*BMJDIA»» .5 

IPX=IPN+ (.01 4«PITCH»* . 5+ . 0028*BMJDIA*» . 5 ) 

IMB=EJX-PITCH 
IMN=EJX-PITCH+. 1»PITCH 
IMX=IMN+.05*PITCH 
ERR=.07*PITCH 
IRR=.07*PITCH 

SEMAX= ( . 3707*P ITCH- . 259*0 ) /TAN ( PFRAD ) » . 5 
SEMIN=SEMAX- . 5* ( . 0 1 4*PITCH»» . 5+ . 0028«BMJDIA»* . 5 ) 

STO= . 0035*BMJDIA»» . 5- ( . 0028»BMJDIA»« . 5+ . 0 1 4»PITCH*» . 5 ) 
IF(STO.GE.O.)  THEN 

SIMAXr ( . 3707*PITCH- . 259* • 00 1 •BMJDI A»» . 5 ) /TAN ( PFRAD ) » . 5 

SIMIN=SIMAX-STO 

ELSE 

SIMIN= ( . 3707»PITCH- . 259* . 00 1 »BMJDIA»» . 5 ) /TAN ( PFRAD ) » . 5 
SIMAX=SIMIN-STO 
ENDIF 
GOTO  90 


ENDIF 

IF(CLASS(l:2).EQ.'bC')  THEN 
EJX=BMJDIA- . 0^b*BMJDIA** . 5 
EJN=EJX- . 00 1 0»BMJUI A** . 5 
IPN=EJX-.b»PITCH 
EPXrlPN- . 006»BMJDIA*» . 5 
EPN=EJX- (.01 0»PITCH** . 5+ . 002»BMJDIA»* . 5 ) 

IFCN.GT.IO.)  G=.010 
IFCN.LE.IO.)  G=,020 
EMX=EJX-PrrCH-G 

EMN=EMX-1 .5*( .010«PITCH»*.5+.002»BMJDIA»».5) 

IJN=EJX+ . 00 1 »BMJDIA** . 5 
IJX=IJN+.002*BMJDIA*».5 
IPX=IPN+( .010*?ITCH»«.5+.002»BMJDIA»*.5) 

IMBrEJX-PITCh 
IMN=EJX-FrrCHv. 1»PITCH 
IMX=IM’^+.00*PITCH 
ERR=.07»PITCH 
IRH=.07*PI'1GH 

SEMAX= ( . 3707  »P ITCH- . 259*G ) /TAN ( PFRAD )» . 5 

SEMI N =SEMAX-  ■ , 5* ( . 0 1 »P ITCH** . 5+ . 002*BMJDIA»» . 5 ) 

STO=.002»BM.JDIA»»,5-( .002*BMJDIA»».5+.010*PITCH**.5) 

IF(CTO,GE.::^.  ;  THEN 

3IMAX= ( .  0"O( *PITCH- .259* .001*aMJDIA*«.5)/TAN(PFRAD)» .5 

SIMIN^SINlAX-oTO 

ELSE 

S1MIN=  ;  .  0'!)7*PITCH-.2S9*.001*BMJDIA**.5)/TAN(PFRAD)*.5 
SIMAX:SrMiN-oTu 
ENDIF 
GOTO  90 
ENDIF 

50  HE2=.^;*P^:T::i 
HI2=HE2 
HE1=HE2+.5»G 
HI1=HE1 
GOTO  100 
90  HE2=.5*PITCr. 

HI2=.45*PITCH 
HE1=H£2+-.5*G 
HI1=HI2+.05*PITCH 
1 00  EJX=AINT ( E.JX*  1 0Oi'O .  + . 5 ) / 1 0000 . 

EJN=AINT ( EJN* 1 0000 . + . 5 ) / 1 0000 . 

EPX=AI NT ( EPX* 1 0000 . + . 5 ) / 1 0000 , 

EPN= AI NT ( EPN* 1 0000 . + . 5 ) / 1 0000 . 

EMX=A  INT  ( EMX*  1 0000 .  + .  5 )  / 1 0000 . 


EMN=AINT ( EMN* 1 0000 . + . 5 ) / 1 0000 . 
I JXrAINT ( IJX« 1 0000 . + . 5 ) / 1 0000 . 
I  JN=AINT  ( UN*  1 0000 .  + .  5 )  / 1 0000 . 
IPX=AINT ( IPX* 1 0000 . + . 5 ) / 1 0000 . 
I PN=AINT ( IPN* 1 0000 . + . 5 ) / 1 0000 . 
IMX=AINT ( IMX* 1 0000 . + . 5 ) / 1 0000 . 
IMN=AINT ( IMN* 1 0000 . + . 5 ) / 1 0000 . 
RETURN 
END 


o  n  n  o  n 


»**  SUBROUTINE  TO  GENERATE  H28  HANDBOOK  DATA  FOR  STUB  ACME  THREADS  *«» 

«•«««•««««««««»««««««»«««««*«««««»»»»««•«»«»««««»»»««*««*«««»«*•««««««» 

SUBROUTINE  H28STB 
$ INSERT  CB1.THRD 
$ INSERT  CB2.THRD 
$INSERT  CB3.THRD 
PITCH=1./N 

IF(CLASS(1:2).EQ.'l  ')  HE2=.3*PITCH  /»  STD  STUB  ACME  FORM 

IF(CLASS(1:2).EQ.'2  ’)  HE2= . 375»PITCH  /*  MODIFIED  FORM  1  STUB 

IF(CLASS(1:2).EQ.'3  ')  HE2= .25*PITCH  /*  MODIFIED  FORM  2  STUB 

HI2=HE2 
PFANG=29./2. 

CLANG=29./2. 

PFRAD=PFANG«PI/180. 

CLRAD=CUNG»PI/180, 

ERR=.005*PITCH  /»  ASSIME  SMALL  RADIUS 

IRR=.005«PITCH  /»  ASSUME  SMALL  RADIUS 

HV= . 5*P ITCH/TAN ( PFRAD ) 

EJX=BMJDIA  /»  (BASIC) 

EJN=EJX-.05*PITCH 

IPN=EJX-HE2 

EPX=IPN- . 008»BMJDIA»* . 5 

EPN=EPX- ( . 030»PITCH+ . 006»BMJDIA»» . 5 ) 

IMN=EJX-2.*HE2 
IF(N.GT.10.)  Gr.010 
IFCN.LE.IO.)  G=.020 
HE1=HE2+.5»G 
HI1=HE1 
EMX=IMN-G 

EMN=EMX- ( . 030*PITCH+ . 006«BMJDIA»» . 5 ) 

IJN=EJX+G 

I JX=IJN+ ( . 030»PITCH+ . 006*BMJDIA»» . 5 ) 

IPNrEJX-HE2 

IPX=IPN+ ( . 030»PITCH+ . 006»BMJDIA»» . 5 ) 

IMN=EJX-2.»HE2 

IMX=IMN+.05*PITCH 

SEt^Xr  ( .  i4224»PITCH- .  259»G )  /TAN  ( PFRAD ) » .  5 

3EMIN=SEMAX 

SIMAX=SEMAX 

SIMINzSEMAX 

EJX=AINT(F^X» 10000. +.5)/ 10000. 

EJN= AI  NT  ( EJN*  1 0000 .  .  5 )  / 1 0000 . 


A24 


EPX= A INI ( EPX» 1 0000 . + . 5 ) / 1 0000 . 
EPN=AINT(EPN» 10000. +.5)/ 10000. 
EMX=AINT ( EMX« 1 0000 . + . 5 ) / 1 0000 . 
EMNrAIN'l’ ( EMN*  1 0000 .  + .  5 )  / 1 0000 . 
I JX=AINT ( I JX» 1 0000 . + . 5 ) / 1 0000 . 
I JN= AINT ( I JN» 1 0000 . + . 5 ) / 1 0000 . 
IPX=AINT ( IPX* 1 0000 . + . 5 ) / 1 0000 . 
IPNrAINT (IPN* 1 0000 . + . 5 ) / 1 0000 . 
IMX= AINT (IMX* 1 0000 . + . 5 ) / 1 0000 . 
IMN=AINT  ( IMN*  1 0000 .  + .  5 )  / 1 0000 . 
RETURN 
END 


n  o  o  n  n  Cj  n  n 


«««««««*«»«»«««««»«»»*»««««»»««««««»»»•«««»»»»«»««»«««»»««««»«•««« 

***  SUBROUTINE  TO  GENERATE  H28  HANDBOOK  DATA  FOR  BUTTRESS  FDRM  *»* 

««*«»«««•«««»»«»«««»«»««»»»««»«««««»««««»««««««*»»*»««»«««*»««*««« 


This  subroutine  generates  National  Buttress  Thread  form  geometry 
as  specified  in  FED-STD-H28/ 1 4  dated  31  Aug  1978. 


SUBROUTINE  H28BUT 
REAL«4  A0,C,U(2) 

$ INSERT  CB1.THRD 
$INSERT  CB2.THRD 
$INSERT  CB3.THHD 

HE1=.66271/N  /*  HEIGHT  OF  THRD  IN  INT  &  EXT  THRD 

HI1=HE1 

HE2=.6/N  /»  BASIC  THREAD  HEIGHT 


HI2=HE2 
HV=.89064/N 
PITCHzl ./N 
PFANG=7. 

GLANG=45. 

PFRAD=PFANG»PI/180. 

CLRAD=CLANG*PI/180. 

IHH=.0357/N 

ERRr.0357/N 

IF(CLASS(1:2).EQ.'1  ')  C=1.5 


/*  HEIGHT  OF  SHARP  V-THREAD 
/»  INVERSE  OF  THRD  PER  IN 


/•  PRESSURE  FACE  ANGLE (RAD) 
/*  CLEARANCE  FACE  ANGLE (RAD) 
/*  MIN  ROOT  RADIUS  INT 
/*  MIN  ROOT  RADIUS  EXT 


IF(CLASS( 1 :2).Eg. '2  ')  C=1.0 
IF(CLASS(1:2).EQ.'3  ')  C=2./3. 

AO=.002*BMJDIA**( 1 ./3. )+.0173*PITCH»*.5 

A(1)=C»A0  /»  PITCH  DIA  TOL  (EXT) 

A(2)  =A(1)  /*  PITCH  DIA  TOL  (INT) 

G=2.  »A0/3.  /»  PITCH  ALLOWANCE 

IF(CLASS(1:2).EQ.' 1  ')  THEN  /»  T(1)=T(2)  MIN  &  MAJ  DIA  TOL 

IF(BM.IDIA.LE.1.)  T(1)  =  .005 
IF(BMJDIA.LE.4. .AND.BMJDIA.GT.1.)  T(1)=.006 
IF(BMJDIA.LE.6. .AND.BMJDIA.GT.'  . J  T(1)  =  .008 
IF(B!-UDIA,LE.  10. . AND.BMJDIA .GT.6. )  T(l)  =  .01 
IFuBMJDIA.LE. 16. .AND.BMJDIA. GT. 10. )  T(1)=.011 
IFlBMJDIA.GT. 16. )  T(1)=.013 
ENDIF 

IF(CLASS(1;2).Eg.'2  ')  THEN 


IF(BM.JDIA.LE.l.)  T(l)=.004 
IF(BMJDIA.LE.4, .AND.BMJDIA.GT.1.)  T(l)=.005 
IF(BMJDIA.LE.6. .AND.BMJDIA.GT.4. )  T(1)=.007 
IF{HM.JDIA.LE. 10. .AND.BMJDIA. GT.6. )  T(1)=.008 
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IFCBMJDIA.LE. 16. .AND.BMJDIA.GT. 10. )  T(1)=.009 

IFCBMJDIA.GT.Ifa.)  T(1)=.010 

ENDIF 

ir(CLASS(1;2).EQ.'3  ')  THEN 
IF(BMJDIA.LE.1.)  T(1)=.003 
IFCBMJDIA.LE. 1 .5. AND.BMJDIA.GT. 1 . )  T( 1 )=.004 
IF(BMJDIA.LE. 4.. AND.BMJDIA.GT. 1.5)  T(1)=.005 
IFCBMJDIA.LE. 10. .AND.BMJDIA.GT. 4. )  T( 1)=.006 
IFCBMJDIA.LE. 16. .AND.BMJDIA.GT. 10. )  TCl)=.007 
IFCB1-UDIA.GT.16.)  TC1)  =  .008 
ENDIF 
TC2)=TC1) 

UC2)=TC1) 

C  EXTERNAL  THREAD  DIMENSIONS 

EJXzE-UDIA-G 
EJN=EJX-TC 1 ) 

EPX=EJX-HE2 
EPN=EPX-AC1) 

EMX=EJX-2.»HE1 
EMN=EPX-AC1)-.80803/N 
C  INTERNAL  THREAD  DIMENSIONS 

BMJDIAsBMJDIA 
IMN=BMJDIA-2.»HE2 
IMX=IMN+UC2) 

IPN=BMJDIA-HE2 
IPX=IPN+AC2) 

IJX=IPX+.80803*PITCH 
I JNrBMJDI A-2 . •HEP+P . *HE 1 
SEMAX=.0826«PITCH 
SEMIN=.0413»PITCH 
SIMAX=.0826»PITCH 
SIMIN=.0413»PITCH 
EJX=AINT  C  EJX» 1 0000 .  + . 5 ) / 1 0000 . 

EJN=AINT  C  EJN* 1 0000 .  + . 5 ) / 1 0000 . 

EPXzAINT  C  EPX» 1 0000 .  + . 5 ) / 1 0000 . 

EPNz AINT  C  EPN* 1 0000 .  + . 5 ) / 1 0000 . 

EMXzAINT C EMX» 1 0000 . + . 5 ) / 1 0000 . 

EMN= AINT  C  EMN* 1 0000 .  + . 5 ) / 1 0000 . 

I  JXzAINT  C I  JX«  1 0000 .  + .  5 )  / 1 0000 . 

I JNzAINT  C I JN» 1 0000 .  + . 5 ) / 1 0000 . 

IPXzAINT  C IPX* 1 0000 .  + . 5 ) / 1 0000 . 

IPNzAINT  C IPN» 1 0000 .  + . 5 ) / 1 0000 . 

IMXzAINT  C IMX* 1 0000 .  + . 5 ) / 1 0000 . 

IMNzAINT  C IMN*  1 0000 .  + .  5 )  / 1 0000 . 

RETURN 
END 


/*  MAX  MAJOR  DIA 
/*  MIN  MAJOR  DIA 
/*  MAX  PITCH  DIA 
/*  MIN  PITCH  DIA 
/*  MAX  MINOR  DIA 
/»  MIN  MINOR  DIA 

/*  BASIC  MAJOR  DIA 
/*  MIN  MINOR  DIA 
/»  MAX  MINOR  DIA 
/»  MIN  PITCH  DIA 
/»  MAX  PITCH  DIA 

/»  MAX  MAJOR  DIA 

/•  MIN  MAJOR  DIA 
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C  »*»  SUBROUTINE  TO  GENERATE  PF20  WTV  BUTTRESS  THREAD  FORM  »»» 

C 

C  This  subroutine  generates  special  20  deg.  pressure  flank  Buttress 
C  thread  form  designed  by  Watervliet  Arsenal. 

C  In  this  subroutine  Datum  Dia.=Pitch  Dia.=BMJDIA 
C 

SUBROUTINE  PF20 
INTEGER»4  PICK 
$INSERT  CB1.THRD 
$INSERT  CB2.THRD 
$INSERT  CB3.THRD 
PFANG=20. 

CLANG=45. 

PFRADzPFANG»PI/180. 

CLRAD=CLANG»PI/180. 


WRITE(1,»)  'PITCH=0.250  .  1’ 

WRITEd,*)  'PITCH=0.375  .  2' 

WRITE(1,»)  'PITCH=0.500  .  3’ 

WRITEd,*)  'PITCH=0.750  .  4* 


2  CALL  TNOUAC SELECT  PITCH;  MNTSd4)) 
READd,'(I2)’,ERR=2)  PICK 
IF(PICK.LT.1,0R.PICK.GT.4)  GOTO  2 
IF(PICK.EQ.I)  THEN 
PITCH=0.250 
N=1. /PITCH 
HV=0.1833 

SEMAXz .042/(1. +TAN ( PFRAD ) ) 

SEMINr .037/(1 .+TAN( PFRAD) ) 

SIMAXzSEMAX 

SIMINzSEMIN 

ERR=0.0327 

IRR=0.0327 

EPXrBMJDIA 

EPNzEPX 

EJX=EPX+0.101 

EJN=EJX-0.005 

EMX=EPX-0.139 

EMN=EMX-0.010 

IPXzEPX 

IPNzIPX 

IJN=IPX+0.139 

IJX=IJN+0.010 


IMN=IPX-0.101 
IMX=IMN+0.00‘j 
GOTO  100 
ENDIF 

IF(.PICK.EQ.2)  THEN 
PITCH=0.375 
N=1. /PITCH 
HV=0.2749 

SEMAX= .061/(1. +TAN ( PFRAD ) ) 

SEMIN= . 056/ ( 1 . +TAN ( PFRAD ) ) 

SIMAX=SEMAX 

SIMIN=SEMIN 

ERR=0.045 

IRR=0.045 

EPXrBMJDIA 

EPNrEPX 

EJX=EPX+0. 151 

EJN=EJX-0.005 

EMX=EPX-0.208 

EMN=EMX-0.010 

IPX=EPX 

IPN=IPX 

IJN=IPX+0.206 

IJX=IJN+0.010 

IMN=IPX-0. 151 

IMX=IMN+0.005 

GOTO  100 

ENDIF 

IF(PICK.EQ.3)  THEN 
PITCH=0.500 
N=1 ./PITCH 
HV= 0.3666 

SEMAX= .079/(1. +TAN ( PFRAD ) ) 

SEMIN= .074/(1. +TAN ( PFRAD ) ) 

SIMAX=SEMAX 

SIMIN=SEMIN 

ERR=0.061 

IRR=0.061 

EPX=BMJDIA 

EPN=EPX 


EJX =EPX+0. 202 
EJN=EJX-0.005 
EMX=EPX-0.278 
EMN=EMX-0.010 
IPX=EPX 


IPN=IPX 

IJN=IPX+0.278 

IJX=IJN+0.010 

IMN= IPX-0. 202 

IMX=IMN+0.005 

GOTO  100 

ENDIF 

IF(PICK.EQ.4)  THEN 
PITCH=0.75 
N=1. /PITCH 
HV=0.5499 

SEMAXr .117/(1 .+TAN(PFRAD) ) 

SEMIN= .112/(1. +TAN ( PFRAD ) ) 

SIMAX=SEMAX 

SIMIN=SEMIN 

ERR=0.095 

IRR=0.095 

EPXrBMJDIA 

EPN=EPX 

EJX=EPX+0.302 

EJN=EJX-0.005 

EMX=EPX-0.416 

EMN=EMX-0.010 

IPXrEPX 

IPN=IPX 

IJN=IPX+0.416 

IJX=IJN+0.010 

IMN= IPX-0. 302 

IMX=IMN+0.005 

GOTO  100 

ENDIF 

100  HEUEJX-EMN 
HIlrHEI 
HE2=EJX-IMN 
HI2=HE2 
RETURN 


c 

C  »«««««««*«•««»*«««««»«»» 

C  »»»  INTRODUCTION  *** 

Q  »»»»»»»»««»»«»«»»»»*»»«« 

n 

SUBROUTINE  INTRO 
C 

CHARACTER  CONTI, CONT2 
EXTERNAL  TNOUA 
C 

CALL  TNOUA(: 115614, INTS(4)) 

WRITE(1,»)  '  ' 

WRITE(1,»)  '  ' 

WRITE(1,*)  '  This  is  a  thread  stress  analysis  program  which  solv 
•es  static  and  Tatigue' 

WRITE(1,*)  '(simple  load  history)  problems  under  assumption  of  ela 
•sticity. ' 

WRITECl,*)  ’  ’ 

WRITE (1,»)  '  Standard  thread  form  data  of  V  thread  (UN,  UNC,UNF 
•and  UNEF ) ,  Acme  thread , ' 

WRITE(1,*)  'stub  Acme  thread  and  Buttress  thread  are  generated  acc 
•ording  to  FED-STD-H28  ' 

WRITEd,*)  'screw  thread  handbook.  Special  thread  form  data  of  PF 
•20  thread  are  generated  ' 

WRITE(1,*)  'per  design  specification  provided  by  Watervliet  Arsena 

•1.' 

WRITE(1,»)  '  ' 

WRITEd,^)  '  In  static  analysis,  load  capacity  of  threaded  joint 

•  and  safety  factors  are  ' 

WRITEd,^)  'calculated  under  maximum,  minimum  and  actual  material 
•conditions  corresponding  ' 

WRITEd,^)  'to  yield  stress  and  tensile  strength.  In  fatigue  anal 
•ysis,  safety  factors  ' 

WRITEd,^)  'corresponding  to  various  fatigue  life  cycle  ranges  are 

•  estimated  base  on  user  ' 

WRITE(1,*)  'supplied  input  information.' 

WRITEd,^)  '  ' 

WRITEd,^)  '  ' 

WRITEd,^)  '  ' 

WRITEd,^)  '  ' 

CALL  TNOUAC  PRESS  RE'TURN  TO  CONTINUE' ,  INTS( 29) ) 

READd,  10)  CONTI 
IF(C0NT1.NE. '  ')  COTO  50 
10  FORMAT(AI) 

50  CALL  TN0UA(: 115614, INTS(4)) 

WfilTEd,*)  ’  ' 

WRITEd,^)  '  ' 

WRITEd,^)  '  Required  input  information  cind  examples  are  listea 
•as  follow:' 

WRITEd,*)  '1.  Waiver  no.:  e.g.  RIW1234' 
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WRITE(1,»)  '2.  SCN  no.:  e.g.  1234’ 

WRITEd,*)  '3.  Part  no.:  e.g.  12007723’ 

WRITE(1,*)  ’4.  Analysis  methods: ( 1 )static  or  (2)static  &  fatigue 
•analysis’ 

WRITEd,*)  '5.  Date  machined  (DDMMMYY):  e.g.  05JUL84’ 

WRITE(1,*)  ’6.  Subcode:  e.g.  12345  (press  return  if  not  applied)’ 
WRITEd,*)  '7.  Basic  major  diameter  (or  dtaum  diameter  for  PF20  t 
•bread )( in .) :  e.g.  3.75' 

WRITEd, •)  '8.  Thread/in.:  e.g.  6, (or  pitch  for  PF20:  e.g.  .375)' 
WRITE(1,^)  ’9.  Thread  clciss:  e.g.  2’ 

WRITE(1,^)  '10.  Select  thread  form  from  menu  &  specify  non-std  de 
•sign  data  (if  any)’ 

WRITE(1,^)  '11.  Hollow  diameter  of  exterior  thread  member  (in.):  e 

».g.  1.5’ 

WRITE(1,^)  '12.  Equiv.  outside  diameter  of  internal  thread  member 
•(in.):  e.g.  10.' 

WRITEd, •)  ’13.  Thread  engagement  length  (in.):  e.g. 3.85’ 
WRITE(1,^)  '14.  Interrupted  thread  factor:  e.g.  .483»  if  not  secto 
•red  enter  1.0’ 

WRITEd, •)  ’15.  Thread  load  concentration  factor  (1-  4):  e.g.  1.5’ 
WRITE(1,^)  '16.  Tensile  strength  of  external  member  (ksi):  e.g.  16 
•0’ 

WRITEd, •)  '17.  Tensile  strength  of  internal  member  (ksi):  e.g.  12 
•O' 

WRITEd, •)  '18.  Yield  stress  of  external  member  (xsi):  e.g.  130’ 

WRITEd, •)  '19.  Yield  stress  of  internal  member  (ksi):  e.g.  95’ 

WRITEd, •)  '20.  Select  thread  surface  finish  method  for  exterior  m 
•ember:  e.g.  machined' 

WRITEd, •)  '21.  Select  thread  surface  finish  method  for  internal  m 
•ember:  e.g.  machined' 

WRITEd, •)  '22.-27.  Enter  deviated  dimensions  (in.), if  no  deviatio 
•n  enter  0  or  press  return’ 

WRITEd, •)  '28.  Select  preload  condition:  none,  full,  partial,’ 
WRITEd,^)  '  by  loading  (kip)  or  by  torque  (ft-lb)’ 

WRITE(1,^)  '29.  Applied  load  (kip):  e.g.  max.  200,  min.  0’ 

WRITEd, •)  '30.  Internal  pressure  (ksi):  e.g.  2' 

WRITEd,^)  '31.  Temperature  (deg  F):  e.g.  180,  enter  0  if  less  tha 
•n  160' 

WRITEd, •)  '32.  Fatigue  strength  reliability(R) :  .5,  .9,  .99,  or 
*.999,' 

WRITEd, •)  '  (R=.5  mean  fatigue  strength,  Cr=1)' 

WRITEd, •)  '  ’ 

WRITEd, •)  '  ' 

WRITEd,^)  ’  ’ 

CALL  TNOUAC  PRESS  RETURN  TO  CONTINUE’ ,INTS( 29) ) 

READ (1,10)  CONT2 
IF(C0NT2.NE. '  ')  GOTO  100 
100  CALL  TN0UA(: 115614, INTS(4)) 

RETURN 

END 
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C  ***  SUBROUTINE  TO  SAVE  DATA  *** 

C 

SUBROUTINE  SAVE 
$ INSERT  OBI. THRU 
$INSERT  CB2.THRD 
$IN3ERT  OBj.TriRD 
$INSERT  SYSCOM>A$KEYS 
$IN3ERT  SYSCX)M>KEYS.F 

CHARACTER* 3  YESNO 
INTEGER*2  LEN 
EXTERNAL  Ti'JOUA 

10  CALL  TNOUA CENTER  FILENAME:  ',INTS(l6)) 

HEAD(1,'(A32)')  FNAME 
LEN=NLEN$A(FNAI'IE,  INTS(32) ) 

IF  ( FNAME  (1 :  M ) .  EQ . '  QU IT '  . OR .  FNAl-E  (1 : 4 ) .  EQ .  ’  STOP ' )  RETURN 
0PEN(20,FILE=FNAt-IE(1  :INTL(LEN)),STATUS='NEW’  ,ERR=20) 

GOTO  30 

20  CALL  TNOUA ('FILE  ALREADY  EXISTS.  DO  YOU  WANT  TO  OVERWRITE?;  *,IN 
*TS(4d)) 

HEAD(1,'(A3)')  YEvSNO 
IF(YESN0(1:1).EQ.’N’)  GOTO  10 

OPEN ( 20 , FILE=FNAME ( 1 ; INTL ( LEN ) ) , STATUS= ’ OLD ' , ERR= 1 0 ) 

REWIND (20) 

30  WH IT E ( 20 , 40 )  WVN , SCN , PN , SUBCODE , SERSTR , STD ( 1 ) , STD ( 2 ) , STD ( 3 ) , STD ( 4 ) 

* , CLASS , DATE ,METHD , ESURFS , ISUHFS 
40  FOHMAT(11(A10),3(A20)) 

WRITE (20,50)  SDFLAG , SERIES , ESURF , ISURF , TEMP 
50  FORMAT(4(I1),I4) 

WRITE ( 20 , 60 )  BMJDIA , N , HDIA , ODI A , PFANG , CLANG , LE , ERR , IRR , SECTOR , TLCF 
* , ETS , ITS , EYS , I YS , YS , TS , LOAD ( 1 ) , LOAD ( 2 ) , LOAD ( 3 ) , FPFRAC , TORQ , FF , 

*PRES ( 1 ) , PRES( 2 ) , REL , EJA , EPA , EMA , I JA , IPA , IMA , PITCH 
oO  F0RMAT(F7.4,F5.2,2(F6.3),3(F5.2),2(F4.3),2(F4.2),6(F6.2),3(F8.2), 
*F4.2,Fb.2,F4.2,2(F8.2),F5.4,7(F7.4)) 

CLOSE  (20) 

RETURN 


c 

C  ***  SUBROUTINE  TO  RECALL  DATA  *** 

c 

SUBROUTINE  RECALL 
CHARACTER*  3  YESNO , RET 
INTEGER* 2  LEN 
$ INSERT  CBl.THRD 
$INSERT  CB2.THHU 
$INSERT  CB3.THHU 
$INSERT  SYSCOM>A$KEyS 
$INSERT  SYSCOM>KEYS.F 
EXTERNAL  TNOUA 

10  CALL  TNOUACENTER  FILENAME:  ',INTS(l6)) 

READ(1,'(A32)')  FNAME 
LEN=NLEN$ A ( FNAME , INTS ( 32 ) ) 

IF(FNAME(1;4).EQ,'gUIT' .OR .FNAME( 1 :4) .EQ. 'STOP' )  RETURN 
OPEN ( 20 , FILEzFNAME ( 1 ; INTL ( LEN ) ) ,STATUS= ’ OLD* , ERR=20 ) 

Goro  30 

20  NHITEd,*)  'FILE  DOES  NOT  EXIST.’ 

GOTO  10 

30  READ ( 20 , 40 )  WN , SCN , PN , SUBCODE , SERSTR , STD ( 1 ) , STD ( 2 ) , STD ( 3 ) , STD ( 4 ) , 
*CLASS , DATE ,METHD , ESURFS , ISURFS 
40  FOHM4T(11(A10),3(A20)) 

READ (20,50)  SDFLAG , SERIES , ESURF , ISURF , TEMP 
50  rOHMAT(4(I1),I4) 

READ (20,60)  BMJDI A , N , HDIA , ODI A , PFANG , CLANG , LE , ERR , IRR , SECTOR , TLCF , 
»ETS , ITS , E YS , I YS , YS , TS , LOAD ( 1 ) , LOAD ( 2 ) , LOAD ( 3 ) , FPFRAC , TORQ , FF , 

*PRES ( 1 ) ,  PRES ( 2 ) ,  REL ,  EJA ,  EP A ,  E''1A ,  I JA ,  IPA ,  IMA , PITCH 
oO  FORi4AT(F7.4,F5.2,2(F6.3),3(F5.2),2(F4.3),2(F4.2),6(F6.2),3(F8.2), 
*F4.2,F8.2,F4.2,2(F8.2),F5.4,7(F7.4)) 

CLOSE  (20) 

CALL  RECALC 
CALL  INTCHK 
CALL  SURFAR 
CALL  BKLASH 
CALL  PCVAR 
CALL  OUTPT 
NHITEd,*)  ’  ' 

CALL  TNOUAC  PRESS  RETURN  FOR  PROGRAM  CONTROL  MENU* , INTS (42) ) 
READ (1,70)  RET 
IF(RET.NE.'  ')  GOTO  100 
70  FOHMAT(AI) 

100  CALL  TNi;UA(:  115614, INTS(4)) 

RETURN 

END 
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C 

C  »**  SUBROUTINE  FOR  THE  INPUT  MODULE  *** 

SUBROUTINE  INPUT 
CHARACTER* 3  TESNO 
INTEGER*^  PICK 

REAL»4  PFANGT,CLANGT,ERRMINT,IRRMINT 
$INSERT  CB1.THRD 

Insert  cbp.thrd 

$INSERT  CB3.THRD 

EXTERNAL  TNOUA 
HDIA=0. 

LOAD(1)=0. 

LOAD(2)=100. 

LOAD(3)=0. 

TLCF=1.5 

REL=0.5 

EJA=0. 

EPA=0. 

EMA=0. 

IJA=0. 

IPA=0. 

IMA=0, 

CALL  TNOUA(: 1 15614, INTS(4)) 

WRITE (1,*)  'THREAD  ANALYSIS  PROGRAM  -  DATA  INPUT' 

WRITE(1,«)  '  ' 

3  CALL  TNOUA( 'ENTER  WAIVER  NO  (e.g.  RIW1234);  ',INTS(32)) 
READ(1,'(A7)' ,ERR=3)  WVN 

4  CALL  TNOUA( 'ENTER  SHOP  CONTROL  NUMBER  (e.g. 123456) :  ',INTS(40)) 
READ(1,'(A6)',ERR=4)  SCN 

6  CALL  TNOUAC'ENTER  PART  NUMBER  (e.g. 12007766) ;  ',INTS(34)) 
READ(1,'(A10)',ERR=6)  PN 

8  CALL  TNOUA ('ANALYSIS  TYPE:  (1)  STATIC  OR  (2)  STATIC+FATIGUE :  ',INT 
»S(49)) 

READ(1,'(I1)’,ERR=8)  SDFLAG 
IF(SDFLAG.GT.2.0R.SDFLAG.LT.1)  GOTO  8 
IF(SDFLAG.EQ.I)  METHD= 'Static  ’ 

IF ( SDFLAG . EQ . 2 )  METHD= ' Static+Fatigue ' 

9  CALL  TNOUA ('ENTER  DATE  MACHINED  (e .g.ddmmmyy) ;  .NTS(35)) 

READ(1,'(A7)',ERR=9)  DATE 

10  CALL  TNOUA ('ENTER  SUBCODE:  ',INTS(15)) 

READ(1,'(A10)',ERR=10)  SUBCODE 

12  CALL  TNOUA( 'BASIC  MAJOR  DIA  (OR  DATUM  DIA  FOR  PF20):  ',INTS(4l)) 
READ(1,»,ERR=12)  BMJDIA 
WRITE(1,«)  '  ' 

WRITE (1,*) 'THREAD  FORM  TYPE' 

WRITEd,*)  ’  ' 
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WRITE (1,*)  ’V-THREAD  .  1' 

WRITEd,*)  'ACME  .  2' 

WRITE(1,»)  ’STUB  ACME  .  3' 

WRITE (1,»)  'BUTTRESS  . 

WRITE(1,«)  'PF20  .  5’ 


20  CALL  TNOUA( 'ENTER  TYPE:  ',INTS(12)) 
READ(1,'(n)',ERR=20)  SERIES 
IF(SERIES,LT.1.0R.SERIES.GT.5)  GOTO  20 
IF ( SERIES. NE. 5)  THEN 

14  CALL  TNOUA( 'THREADS  PER  INCH:  ',INTS(l8)) 
READ(1,»,ERR=14)  N 
ENDIF 

IF(SEHIES.EQ.I)  THEN 


'WRITEd,*)  '  ' 

WRITECI,*)  'UN  .  1' 

WRITEd,*)  'UNC  .  2' 

WRITEd,*)  'UNF  .  3’ 

WHITEd,»)  'UNEF  .  4' 


22  CALL  TNOUA CENTER:  ',I!^S(7)) 

READd,'(d)’,ERR=22)  PICK 
IF(PICK.LT. 1.0R.PICK.GT.4)  GOTO  22 
IF(PICK.EO. 1)  SERSTR='UN  ' 

IFiPICK.Eg.2)  SERSTB='UNC' 

IF(PICK.EQ.3)  SERSTR=’UNF’ 

IF(PICK.EQ.4)  SERSTR='UNEF' 

CALL  TCLASS 
CALL  H28VEE 
ENDIF 

IF( SERIES, EQ. 2)  THEN 
SEHSTRr'ACME' 

■CALL  rCLASS 
CALL  H2HACM 
r:NDIF 

i  F  u  it-:  rt  I  riS .  Eg .  3 )  THEN 
oEHSTR='STUB  ACME' 
vlALL  TCLASS 
CALL  H28STB 
ENDIF 

IF(SERIES.Eg.4)  THEN 
SERSTK='BUTT' 

CALL  TCLASS 
'CALL  H2HHUT 
ENDIF 

i F  ( Sr.f: I  EC. .  Eg .  L  /  THEN 
SEl:STH='PF2U  ' 

CLA.SS::'-  ' 

CAIT, 
e.NE  IF 

WHIlEi  1 ,»)  ’  ' 

WHITE'  1, '(A2b,FN.2C  )  'PRESSURE  FACE  ( PF  ANGLE ) :  ’,PFANG 
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WRITE(1,'(A22,F5.2)')  ’CLEARANCE  (CL  ANGLE);  CLANG 

25  CALL  TNOUA( 'STANDARD  PF  &  CL  ANGLES?:  ’,INTS(26)) 

STD(1)='  ’ 

STD  ' ) -  *  • 

REAu(l,'(A3)' ,ERR=25)  YESNO 
IF(YESNO(1:1).EQ.'N')  THEN 

26  CALL  TNOUA( ’ENTER  PF  ANGLE;  ’,INTS(16)) 

READ(1,»,ERR=26)  PFANGT 
IF(PFANGT.NE.PFANG)  THEN 

STD(l)='non-std’ 

PFANG=PFANGT 

ENDIF 

28  CALL  TNOUA( ’ENTER  CL  ANGLE:  ’,INTS(16)) 

READ(1,»,ERR=28)  CLANGT 
IF (CUNGT.NE. CLANG)  THEN 
STD(2)='non-std' 

CLANG=CLANGT 

ENDIF 

CALL  HECALC 
ENDIF 

WRITE(1,»)  '  ' 

WRITE(1,’(A22,F5.4)')  ’EXT  THRD  ROOT  RADIUS;  ’ ,ERR 
WRITE(1,’(A22,F5.4)')  ’I NT  THRD  ROOT  RADIUS;  ',IRR 
30  CALL  TNOUA( ’STANDARD  THREAD  ROOT  RADII?;  ’,INTS(29)) 
STD(3)='  ’ 

STD(4)=’  ' 

READ(1,’(A3)’,ERR=30)  YESNO 
IF(YESNO(1;l),EQ.'N’ )  THEN 

32  CALL  TNOUA( ’ENTER  EXT  THRD  ROOT  RADIUS;  ’,INTS(28)) 
READ(1,'(F5.4)’,ERR=32)  ERRMINT 
IF(ERRI«1INT.NE.ERR)  THEN 
STD(3)='non-std' 

ERR=ERRMINT 

ENDIF 

34  CALL  TNOUA( ’ENTER  INT  THRD  ROOT  RADIUS;  ',INTS(28)) 
READ(1,'(F5.4)',ERR=34)  IRRMINT 
IF(IRRMINT.NE.IRR)  THEN 
STD(4)=’non-std' 

IHR=IRRMINT 

ENDIF 

CALL  RECALC 
ENDIF 

40  CALL  TNOUACHOLLOW  DIA(in):  ’,INTS(l6)) 

READ(l,»,ERRr40)  HDIA 
IF(HDIA.GE.BMJDIA)  THEN 

WRITE (1,»)  'HOLLOW  DIA  MUST  BE  LESS  THAN  EXT  MEMBER  DIA.' 

GOTO  40 

ENDIF 

42  CALL  TNOUACEQUIV  0,D.(in):  ’,INTS(16)) 

HEAI)(1,»,ERR=42)  ODIA 
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i\'  THEN 

WHITE (  1,*)  'EQUIV  OD  MUST  BE  GREATER  THEN  INT  THRD  DIA.' 

';/JT(J  TT 
ENPiF 

'T’l  CALL  TNOUACTHRD  ENGAGEMENT  LENGTH:  ',INTS(24)) 
Hr;AI'(1,*,ERR=44)  LE 

40  CALL  TMOCACTHKD  SEGMENT  (FRACTION  OF  FULL):  ',INTS(33)) 
RF«LH  1 ,*,ERR-46)  SECTOR 
[FISECTOR.LT. .249)  THEN 

WHITE (1,*)  'CURRENT  LOWER  SEGMENT  LIMIT  IS  .25' 

GOTO  46 
ENDIF 

48  CALL  TNOUACLOAD  FACTOR (1.5  normal):  ’,INTS(25)) 

REAL)(  1,»,ERH=48)  TLCF 

50  CALL  TNOUA( 'ULTIMATE  STRENGTH  (EXT  MEMBER)  KSI:  ',INTS(36)) 
HEAI)(  1  ,*,EHR=50)  ETS 

o2  CALL  rNOUA( 'YIELD  STRENGTH  (EXT  MEMBER)  KSI:  ',INTS(34)) 
HEAn(1,»,ERR=52)  EYS 

•vt  CALL  TNUUA( 'ULTIMATE  STRENGTH  (INT  t'lEMBER)  KSI:  ',INTS(36)) 
R'rJAD(  1,«,ERR=54)  ITS 

■  CALL  TNUUA( 'YIELD  STRENGTH  (INT  MEMBER)  KSI:  ',INTS(34)) 
iiEALK  l,*,ERR  =  5b)  IY3 
YSrAi-UNUEYS.nS) 

WHITEd.*)  YS 
TS=AMIN1(ETS,ITS) 


WRITE(1.»)  '  ' 

WRITE (1,*)  '»»  SURFACE  FINISH  FOR  EXTERNAL  MEMBER 
WHITF(1.»)  '  ' 


'MIRROR  POLISHED  .  1’ 

WRITE (  1  ,*)  'FINE  GROUND  .  2’ 

^RLl'i.L  1  ,»)  'MACHINED  .  3’ 

rttC  IcL  1 .»  )  'HOT  ROLLED  .  4' 

WrC  ],*)  ’AS  FORGED  .  5' 


lAi...  LTVJA CENTER:  '  ,  INTS(7) ) 

■'ioAC  C '(il)’ ,ERR=58)  ESURF 
iF(LSlJKF.LT.1.0R.ESUBF.GT.5)  GOTO  58 
:  F  >  FC'JHF  .  EQ .  1 )  ESURFS=  ' MIRROR  POLISHED ' 
I F  ( ivTCnr' .  :vO .  2  J  ESURFS-  'FINE  GROUND ' 

■  -  ■  '■  i  -' .  E'J .  I ''  FISURFS=  ' MACHINED' 

,t  .r.  .'i  rISlJHFS::'HOT  ROLI.EL’ 

'AS  roRGFD' 


**  .-fiRi-AC  FINISH  ’■  -  .JTERNAL  MEMBER  **' 


■’188  44  P‘  \  Ht^r,  .  ,  ,  .  I* 

:t-  ;  . c 


iA';C,ED  . 
F'Cit  C-'D  .  . 
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READ(1,'(n)',ERR=60)  ISURF 
IF(ISURF.LT.1.0R.ISURF.GT.5)  GOTO  60 
IF(ISURF.EQ.I)  ISURFS= 'MIRROR  POLISHED' 

IF(ISURF.EQ.2)  ISURFS='FINE  GROUND' 

IF(ISUfiF.EQ.3)  ISURFS= 'MACHINED' 

IF(ISURF.EQ.4)  ISURFS='HOT  ROLLED' 

IFdSURF.EQ.S)  ISURFS='AS  FORGED' 

WRITE(1,»)  '*»*  EXTERNAL  THREAD  ***' 

62  CALL  TNOUA( 'MAJOR  DIA  DEVIATION( in) :  *,^3(25)) 

READd, '(F7.4)' ,ERR=62)  EJA 
WRITEd,*)  '***  EXTERNAL  THREAD  *»*• 

64  CALL  TNOUA( 'PITCH  DIA  DEVIATION (in);  •,INTS(25)) 
READd,'(F7.4)',ERR=64)  EPA 
WRITEd, »)  '***  EXTERNAL  THREAD  *»*• 

66  CALL  TNOUA ('MINOR  DIA  DEVIATION ( in ) :  ',INTS(25)) 
READd,'(F7.4)' ,ERR=66)  EMA 
WRITE d,»)  '»»»  INTERNAL  THREAD  »*»' 

68  CALL  TNOUA( 'MAJOR  DIA  DEVIATION ( in) ;  •,INTS(25)) 
READ(1,'(F7.4)',ERR=68)  IJA 
WRITEd, »)  '»»»  INTERNAL  THREAD  »**' 

70  CALL  TNOUA ('PITCH  DIA  DEVIATION ( in) ;  •,INTS(25)) 
READd,'(F7.4)' ,ERR=70)  IPA 
WRITEd, »)  '»»»  INTERNAL  THREAD  »»•' 

72  CALL  TNOUA( 'MINOR  DIA  DEVIATION(in) :  ',INTS(25)) 
READd,'(F7.4)' ,ERR=72)  IMA 
CALL  INTCHK 
CALL  SURFAR 
CALL  BKLASH 
CALL  PCVAR 
CALL  PRELOD 

74  CALL  TNOUA( 'ENTER  MAX  APPLIED  AXIAL  LOAD(kip);  ',INTS(35)) 
READd,«,ERR=74)  L0AD(2) 

76  CALL  TNOUA( 'ENTER  MIN  APPLIED  AXIAL  LOAD(kip):  ',INTS(35)) 
READd,»,ERR=76)  L0AD(3) 

IF(HDIA.EQ.O.)  GOTO  82 

78  CALL  TNOUA( 'ENTER  INTERNAL  PRESSURE ( PSI ) ;  ',INTS(30)) 
READd,*,ERR=78)  PRES(I) 

82  CALL  TNOUA( 'ENTER  TEMPERATURE ( deg  F);  ',INTS(26)) 
READd,'(I4)' ,ERR=82)  TEMP 
WRITEd,*)  '  ' 

WRITEd,*)  '*  FATIGUE  DATA  RELIABILITY  FACTOR  *' 


WRITEd,*)  '  ' 

WRITEd,*)  '.5  (mean)  .  T 

WRITEd,*)  '.9  .  2' 

WRITEd,*)  '.96  .  3' 

WRITEd,*)  '.99  .  4' 


84  CALL  TNOUA ('  ENTER;  ',INTS(8)) 
READd,'(n)' ,ERR=84)  IPICK 
IF(IPICK.LT.1.0R.IPICK.GT.4)  GOTO  84 
IFdPICK.EQ.D  REL=.5 


IF(IPICK.EQ.2)  REL=.9 
IF(IPICK.EQ.3)  REL=.95 
IF(IPICK.EQ.4)  REL=.99 
CALL  TNOUA(: 115614, INTS(4)) 
100  RETURN 
END 


C  I 

C  ***  SUBROUTINE  TO  EDIT  THREAD  DATA  *»* 

Q  ««»»««««««««««««*«»««««««««»*«««»«»»«•»««««««*«<(««««»»*««««»«««»«*«<(«» 

c 

SUBROUTINE  EDIT 

CHARACTER* 3  YESNO  i 

INTEGER*4  PICK  C 

REAL* 4  PFANGT,CLANGT,ERRMINT,IRRMINT 
$INSERT  CB1.THRD 
$INSERT  CB2.THRD 

$INSERT  CB3.THRD  L 

EXTERNAL  TNOUA  | 

5  CALL  OUTPT 

10  CALL  TNOUA( 'ENTER  ITEM  TO  BE  CHANGED  (0  FOR  NO  CHANGE) ,INTS(44) )  ; 

READ(1,'(I2)' ,ERR=10)  PICK 

IF(PICK.EQ.I)  THEN  ! 

12  CALL  TNOUACNEW  WAIVER  NO:  '.INTSClS)) 

READ(1,'(A7)',ERR=12)  WVN  i 

GOTO  5 

ENDIF 

IF(PICK.EQ.2)  THEN  ‘ 

14  CALL  TNOUACNEW  SHOP  CONTROL  NO:  »,INTS(21)) 

READ(1,'(A10)',ERR=14)  SCN 

GOTO  5  i 

ENDIF 

IF(PICK.EQ.3)  THEN 

16  CALL  TNOUACNEW  PART  NO:  ',INTS(13)) 

READ(1,'(A10)',ERR=16)  FN 
GOTO  5 

ENDIF  I 

IF(PICK.EQ.4)  THEN 

18  CALL  TNOUA ('ANALYSIS  TYPE:  (1)  STATIC  OR  (2)  STATIC+FATIGUE :  ' ,I 
*NTS(49)) 

READ(1,'(I2)',ERR=18)  SDFLAG 

IF(SDFLAG.LT.1,OR.SDFUG.GT.2)  GOTO  18  ; 

IF(SDFUG.EQ.l)  METHD= 'Static  '  j 

IF ( SDFLAG. EQ. 2)  METHD='Static+Fatigue' 

GOTO  5 
ENDIF 

IF(PICK.EQ.5)  THEN 

20  CALL  TNOUACNEW  DATE  MACHINED((lclninmyy):  ',INTS(28)) 

READ(1,'(A7)',ERR=20)  DATE  I 

GOTO  5 

ENDIF 
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IF(PICK.EQ.6)  THEN 

22  CALL  TNOUAC NEW  SUBCODE:  ',INTS(13)) 
READ(1,'(A10)',ERR=22)  SUBCODE 
GOTO  5 
ENDIF 

IF(PICK.EQ.7)  THEN 

24  CALL  TNOUAC 'NEW  BASIC  DIA  (or  DATUM  DIA  for  PF20) 

»)) 

READ(1,*,ERR=24)  BMJDIA 

CALL  HECALC 

CALL  INTCHK 

CALL  SURFAR 

CALL  BKLASH 

CALL  PCVAR 

CALL  PRELOD 

GOTO  5 

ENDIF 

IFCPICK.EQ.S)  THEN 
IF ( SERSTR . EQ . • PF20 ' )  THEN 

2b  CALL  TNOUAC 'NEW  PITCH:  ',INTS(11)) 

READ(1,*,ERR=26)  PITCH 
N=1. /PITCH 
ELSE 

27  CAa  TNOUAC 'NEW  THREADS/IN:  ',INTS(16)) 
READ(1,*,ERR=27)  N 

PITCH=1./N 

Et«)IF 

CALL  RECALC 
CALL  INTCHK 
CALL  SURFAR 
CALL  BKLASH 
CALL  PCVAR 
CALL  PRELOD 
GOTO  5 
ENDIF 

IF(PICK.EQ.9)  THEN 

28  CALL  TCLASS 
CALL  RECALC 
CALL  INTCHK 
CALL  SURFAR 
CALL  BKLASH 
CALL  PCVAR 
CALL  PRELOD 
GOTO  5 
ENDIF 


I  -• 


r . 


30 


32 
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IF(PICK.EQ.IO)  THEN 
WRITEd,*)  '  • 

WRITEd,*)  'THREAD  FORM  TYPE ( SERIES ) ' 
WRITEd,*)  '  ' 

WRITE d,»)  'V-THREAD  .  T 

WRITEd,»)  'ACME  .  2* 

WRITEd,*)  'STUB  ACME  .  3' 

WRITEd,*)  'BUTTRESS  .  4' 

WRITEd,*)  'PF20  .  5' 

CALL  TNOUACENTER  TYPE;  ',INTSd2)) 
READd,'(I1)',ERR=30)  SERIES 
IF(SERIES.LT.1.0R.SERIES.GT.5)  CX)TO  30 
IF(SERIES.EQ.I)  THEN 
WRITEd,*)  '  ' 

WRITEd,*)  'UN  .  1' 

WRITEd,*)  'UNC  .  2' 

WRITEd,*)  'UNF  .  3’ 

WRITEd,*)  'UNEF  .  4» 

WRITEd,*)  '  ' 

CALL  TNOUACENTER:  •,INTS(7)) 
READd,'(I1)',ERR=32)  PICK 
IF(PICK.LT.1.0R.PICK.GT.4)  GOTO  32 
IF(PICK.EQ.I)  SERSTRz'UN  ' 
IF(PICK.EQ.2)  SERSTRs'UNC* 
IF(PICK.EQ.3)  SERSTR='UNF' 
IF(PICK.EQ,4)  SERSTRs'UNEF' 

CALL  TCLASS 
CALL  H28VEE 
ENDIF 

IF ( SERIES. EQ. 2)  THEN 
SERSTR='ACME' 

CALL  TCUSS 
CALL  H28AOI 
ENDIF 

IF ( SERIES. EQ. 3)  THEN 
SERSTR='STUB  ACME' 

CALL  TCLASS 
CALL  H28STB 
ENDIF 

IF(SERIES.EQ.4)  THEN 
SERSTR='BUTT' 

CALL  TCLASS 
CALL  H28BUT 
ENDIF 

IF ( SERIES. EQ. 5)  THEN 


A43 


I 

h 


SERSTR='PF20  ' 

CLASS=' 

CALL  TCLASS 
CALL  PF20 
ENDIF 

WRITEd,*)  '  ' 

34  CALL  TNOUA( 'STANDARD  PF  &  CL  ANGLES?:  ',INTS(26)) 
STDd)  =  ’  • 

STD(2)='  ' 

READ(1,'(A3)',ERR=34)  YESNO 
IF(YESNC(1:1).EQ.'N')  THEN 

36  CALL  TNOUA CENTER  PF  ANGLE:  ’,INTS(16)) 
READ(1,*,ERR=36)  PFANGT 
IF(PFANGT.NE.PFANG)  THEN 
STD(1)='non-std' 

PFANG=PFANGT 

ENDIF 

3a  CALL  TNOUACENTER  CL  ANGLE:  '.INTSCe)) 
READ(1,»,ERR=38)  CLANGT 
IF (CLANGT.NE. CLANG)  THEN 
STD(2)='non-std' 

CLANGsCLANGT 

ENDIF 

ENDIF 

WRITE(1,»)  ’  ' 

40  CALL  TNOUA ('STANDARD  THREAD  ROOT  RADII?:  ',INTS(29)) 
STD(3)='  ' 

STD(4)='  ' 

READ(1,'(A3)',ERR=30)  YESNO 
IF(YESNO(1;1).EQ.'N' )  THEN 

42  CALL  TNOUACENTER  EXT  THRD  ROOT  RADIUS;  ',INTS(28)) 
READ(1,'(F5.4)',ERR=42)  ERRMINT 
IF(ERRMINT.NE.ERR)  THEN 
STD(3)='non-std' 

ERR=ERRMINT 

ENDIF 

44  CALL  TNOUACENTER  INT  THRD  ROOT  RADIUS;  ',INTS(28)) 
READ(1,'(F5.4)',ERR=44)  IRRMINT 
IF(IRRMINT.NE.IRR)  THEN 
STD(4)='non-std' 

IRR=IRRMINT 

ENDIF 

ENDIF 

CALL  RECALC 
CALL  INTCHK 
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CALL  SURFAR 
CALL  BKLASH 
CALL  PCVAR 
CALL  PRELOD 
GOTO  5 
ENDIF 

IF(PICK.EQ.II)  THEN 

45  CALL  TNOUAC NEW  HOLLOW  DIA( in):  ’,INTS(20)) 

READ(1,*,ERR=46)  HDIA 
IF(HDIA.GE.BMJDIA)  THEN 

WRITE (1,»)  'HOLLOW  DIA  MUST  BE  LESS  THAN  EXT  MEMBER  DIA.* 
GOTO  46 
ENDIF 
GOTO  5 
ENDIF 

IF(PICK.EQ.12)  THEN 

48  CALL  TNOUACNEW  EQUIV  O.D.(in):  •,INTS(20)) 

READ(1,»,ERR=48)  ODIA 
IF(ODIA.LE.BMJDIA)  THEN 

WRITE (1,»)  'EQUIV  OD  MUST  BE  GREATER  THAN  INT  THRD  DIA.' 
GOTO  48 
ENDIF 
GOTO  5 
ENDIF 

IF(PICK.EQ.13)  THEN 

50  CALL  TNOUACNEW  ENGAGEMENT  LENGTH(in):  •,INTS(27)) 
READ(1,»,ERR=50)  LE 
GOTO  5 
ENDIF 

IF(PICK.EQ.14)  THEN 

52  CALL  TNOUACNEW  THRD  SEGMENT  (FRACTION  OF  FULL):  ',INTS(36)) 
READ(1,»,ERR=52)  SECTOR 
IF (SECTOR.lt.. 249)  THEN 
WRITE (1,»)  'CURRENT  LOWER  LIMIT  IS  .25’ 

GOTO  52 
ENDIF 

IF(SECT0R.GT.1.)  GOTO  52 

GOTO  5 

ENDIF 

IF(PICK.EQ.15)  THEN 

54  CALL  TNOUACNEW  LOAD  FACTOR (1.5  normal):  ',INTS(29)) 
READ(1,«,ERR=54)  TLCF 
GOTO  5 
ENDIF 

IF(PICK.EQ.l6)  THEN 
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CALL  TNOUACNEW  T.S.  EXT  MEMBER(ksi):  ',INTS(26)) 

READ(1,*,ERR=56)  ETS 

TS=AMIN1(ETS,ITS) 

GOTO  5 
ENDIF 

IF(PICK.EQ.17)  THEN 

CALL  TNOUACNEW  T.S.  INT  MEMBER(ksi):  •,INTS(26)) 

read(i,»,err=58)  its 

TS=AMIN1(ETS,ITS) 

GOTO  5 
ENDIF 

IF(PICK.EQ.18)  THEN 

CALL  TNOUACNEW  Y.S.  EXT  MEMBER(ksi):  •,INTS(26)) 

READ(1,*,ERR=60)  EYS 

YS=AMIN1(EYS,IYS) 

GOTO  5 
ENDIF 

IF(PICK.EQ.19)  THEN 

CALL  TNOUACNEW  Y.S.  INT  MEMBER(ksi);  ’,INTS(26)) 

READ(1,»,EHR=62)  lYS 

YS=AMIN1(EYS,IYS) 

GOTO  5 
ENDIF 

IF(PICK.EQ,20)  THEN 
WRITE(1,»)  '  ' 

WRITE(1,»)  '«»  SURFACE  FINISH  FOR  EXTERNAL  MEMBER 


WRITE(1,»)  '  • 

WRITE(1,»)  'MIRROR  POLISHED  .  1’ 

WRITE(1,»)  'FINE  GROUND  .  2’ 

WHITEd,*)  'MACHINED  .  3' 

WRITE (1,»)  'HOT  ROLLED  .  4' 

WHITEd,*)  'AS  FORGED .  5’ 


CALL  TNOU A ( ' ENTER ;  ' , I NTS ( 7 ) ) 

READd,'(n)',ERR=64)  ESURF 
IF(ESURF.LT.1.0R.ESURF.GT.5)  GOTO  64 
IF(ESURF.EQ.I)  ESURFS= 'MIRROR  POLISHED' 

IF(ESURF.EQ.2)  ESURFS='FINE  GROUND' 

IF(ESURF.EQ.3)  ESURFS= 'MACHINED' 

IF(ESURF.EQ,4)  ESURFS='HOT  ROLLED' 

IF(E-:SURF.EQ.5)  ESURFSr'AS  FORGED' 

GOTO  5 
ENDIF 

IF(PICK.KQ.21}  THEN 
WHITEd,*)  '  ' 

WHITEd,*;  '**  SURFACE  FINISH  FOR  INTERNAL  MEMBER  »»' 


WRITECl,*)  '  ' 

WRITE(1,»)  'MIRROR  POLISHED  .  1» 

WRITE(1,»)  'FINE  GROUND  .  2' 

WRITECl,*)  'MACHINED  .  3' 

WRITECl,*)  'HOT  ROLLED  .  4' 

WRITECl,*)  'AS  FORGED  .  5' 


66  CALL  TNOUA CENTER;  ',INTSC7)) 

READC1,'CI1)',ERR=66)  ISURF 
IFCISURF.lt. 1. OR. ISURF.GT. 5)  GOTO  66 
IFCISURF.EQ.1)  ISURFS= 'MIRROR  POLISHED' 
IFCISURF.EQ.2)  ISURFS='FINE  GROUND' 

IFCISURF.EQ.3)  ISURFSs 'MACHINED* 

IFCISURF.EQ.4)  ISURFSs'HOT  i«)LLED* 

IFCISURF.EQ.5)  ISURFS='AS  FORGED* 

GOTO  5 
ENDIF 

IFCPICK.EQ.22)  THEN 
WRITECl,*)  '***  EXTERNAL  THREAD  »**' 

68  CALL  TNOUA C NEW  MAJOR  DIACin)  DEVIATION:  ',INTSC29)) 
READC1,'CF7.4)' ,ERR=68)  EJA 
CALL  INTCHK 
CALL  SUHFAR 
CALL  PCVAR 
GOTO  5 
ENDIF 

IFCPICK.EQ.23)  THEN 
WRITECl,*)  '***  EXTERNAL  THREAD  **** 

70  CALL  TNOUAC’NEW  PITCH  DIACin)  DEVIATION:  ',INTSC29)) 
READC1,*CF7.4)',ERR=70)  EPA 
CALL  INTCHK 
CALL  SURFAR 
CALL  PCVAR 
GOTO  5 
ENDIF 

IFCPICK.EQ.24)  THEN 
WRITECl,*)  '***  EXTERNAL  THREAD  ***' 

72  CALL  TNOUAC 'NEW  MINOR  DIACin)  DEVIATION;  ',INTSC29)) 
READC1,'CF7.4)' ,ERR=72)  EMA 
CALL  INTCHK 
CALL  SURFAR 
CALL  PCVAR 
GOTO  5 
ENDIF 

IFCPICK.EQ.25)  THEN 
WRITECl,*)  '***  INTERNAL  THREAD  ***' 
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74  CALL  TNOUACNEW  MAJOR  DIA(in)  DEVIATION:  ',INTS(29)) 
READ(1,'(F7.4)',ERR=74)  IJA 
IF(  IJA . LE .  I JX . AND .  IJA  .GE .  UN )  I JA=0. 

CALL  INTCHK 
CALL  SUHFAR 
CALL  PCVAR 
GOTO  5 
ENDIF 

IF(PICK.EQ.26)  THEN 

WRITECI,*)  INTERNAL  THREAD 

76  CALL  TNOUACNEW  PITCH  DIA(in)  DEVIATION:  ',INTS(29)) 
READd, '(F7.4)' ,ERR=76)  IPA 
IF ( IPA . LE . IPX . AND . IPA .GE . IPN )  IPA=0. 

CALL  INTCHK 
CALL  SUHFAR 
CALL  PCVAR 
GOTO  5 
ENDIF 

IF(PICK.EQ.27)  THEN 
WHITEd,*)  ’»»*  INTERNAL  THREAD 
78  CALL  TNOUA(’NEW  MINOR  DIA(in)  DEVIATION:  ',INTS(29)) 
HEADd,'(F7.4)',ERR=78)  IMA 
IF(IMA.LE.II^.AND.IMA.GE.Il^)  IMA=0. 

CALL  INTCHK 
CALL  SURFAR 
CALL  PCVAR 
GOTO  5 
ENDIF 

IF(PICK.EQ.28)  THEN 
CALL  PRELOD 
GOTO  5 
ENDIF 

IF(PICK.EQ,29)  THEN 

80  CALL  TNOUACENTER  MAX  APPLIED  AXIAL  LOADCkip);  MNTS(35)) 
READd,*,ERH=80)  L0AD(2) 

82  CALL  TNOUACENTER  MIN  APPLIED  AXIAL  LOAD(kip):  dINTS(35)) 
REAUd,*,ERH=a2)  L0AD(3) 

GOTO  8 
ENDIF 

IF  I  PICK. EO. 30)  THEN 
IFCHDIA.EO.O.)  THEN 

WHITEd,*)  'EXT  THRD  t^MBER  IS  NOT  HOLLOW 

GOTO  100 

KNUIF 

84  CALl.  TNOUACENTER  INTERNAL  PRESSURE ( KSI ) :  MNTS(30)) 

KEAD(  1,»,ERH=84)  PRESd) 

GOTO  8 
ENDIF 
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IF(PICK.EQ.31)  THEN 

88  CALL  TNOUA ( ' ENTER  TEMPERATURE (deg  F ) ;  ' , INTS ( 26 ) ) 
READ(1,'(I^)',ERR=88)  TEMP 
GOTO  5 
ENDIF 

IF(PICK.EQ.32)  THEN 
WRITE(1,»)  '  ' 

WRITE (1,»)  '»  FATIGUE  DATA  RELIABILITY  FACTOR 


WRITE(1,»)  '  ' 

WRITECI,*)  *.5  (mean)  .  1* 

WRITE(1,»)  '.9  .  2' 

WRITE(1,»)  '.95  .  3' 

WRITE(1,»)  '.99  .  M' 


92  CALL  TNOUAC  ENTER:  ',INTS(8)) 
HEAD(1,'(I1)',ERR=92)  IPICK 
IF(IPICK.LT.1.0R.IPICK.GT.4)  GOTO  84 
IF(IPICK.EQ.I)  REL=.5 
IF(IPICK.EQ.2)  REL=.9 
IF(IPICK.EQ.3)  REL=.95 
IF (IPICK. EQ. 4)  REL=.99 
GOTO  5 
ENDIF 

100  CALL  TN0UA(:115614,INTS(4)) 

RETURN 

END 


o  o  o  n  o 
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***  SUBROUTINE  TO  GENERATE  INTERMEDIATE  OUTPUT  FOR  REVIEW  &  EDIT  ••• 


SUBROUTINE  OUTPT 
$ INSERT  CB1.THRD 
$INSERT  CB2.THRD 
$ INSERT  CB3.THRD 

REAL*4  EJTOL , EPTOL , E^f^OL , I JTOL , IPTOL , IMTOL 

EXTERNAL  TNOUA 

CALL  TNOUA(: 115614, INTS(M)) 

WRITE (1,»)  '  *»*  THREAD  DATA  •»»' 

WRITE(1,»)  '  ' 

WRITEd.lO)  '  1.  WAIVER  N0:',WVN,'2.  SON#:  ’  ,3CN, '  3.  PART  NO;',PN 

10  F0RMAT(A14, IX, A7 ,8X,A8, 1X,A7 ,8X,A1 1 , 1X,A8) 

WRITE(1,11)  '  4.  METHOD:' ,METHD,' 5.  DATE  MACH: ' ,DATE, '6.  SUBCODE:' 
», SUBCODE 

11  FORMAT(A11,1X,A14,4X,A13,1X,A7,3X,A11,1X,A10) 

IF (SERIES. EQ. 5)  THEN 

WRITE(1,12)  '  7.  DATUM  DIA(in):' ,BMJDIA,'8.  PITCH;  ', PITCH 

12  F0RMAT(A18, 1X,F7.4,4X,A10, 1X,F7.4) 

ENDIF 

IF (SERIES. NE, 5)  THEN 

WRITE(1,13)  ’  7.  BASIC  DIA(in):*,BMJDIA,’8.  THREADS/IN; ' ,N, '9.  CLA 
»SS:' ,CLASS 

13  F0RMAT(A18,1X,F7.4,4X,A14,1X,F5.2,4X,A9,1X,A2) 

ENDIF 

WRITE(1,»)  '  ' 

WRITE(1,14)  '10.  THREAD  FORM: ' ,SERSTR, ' 1 1 .  HOLLOW  DIA(in) : ' ,HDIA 

14  F0RMAT(A16, 1X,A10, 17X,A19, 1X,F6.3) 

WRITE(1,16)  'PF  ANGLE(deg):',PFANG,STD(1),'12.  EQUIV  O.D. (in) ; ' ,0D 
»IA 

1b  F0RMAT(4X,A14,1X,F5.2,1X,A8,11X,A19,1X,F6.3) 

WRITE(1,18)  'CL  ANGLE(deg) :', CLANG, STD(2),' 13.  ENGAGEMENT  LENGTH (i 
»n):',LE 

18  FORMAT(4X,A14, 1X,F5.2, IX, A8, 1 1X,A26, 1X,F5.2) 

WRITE(1,20)  'EXT  ROOT  RADIUS(in); ' ,ERR,STD(3) , ' I'*.  INTERRUPTED  THR 
»D  f='ACTOR:' ,SECTOH 

20  FORMAT(4X,A20,1X,F5.4,1X,A9,4X,A28,1X,F5.3) 

WRirE(1,22)  'INT  ROOT  RADIUS( in) : ' ,IRR,STD(4) , ' 15.  LOAD  FACrOR(1-4 
»,1.5nom):',TLCF 

22  FORMAT(4X,A20, 1X,F5.4, 1X,A9,4X,A28, 1X,F4.2) 

WRITEd,*)  '  ' 

WRITE(1,24)  '16.  T.S.  EXT  MEMBER(l<si ) : ' ,ETS, ' 17.  T.S.  INT  MEMBER ( 
•ksi):' ,ITS 

24  F0RMAT(A25,1X,F6.2,5X,A25,1X,F6.2) 

WRrrEd,24)  '18.  Y.S.  EXT  MEMBER(ksi):',EYS,'19.  Y.S.  INT  MEMBER ( 
»ksi):' ,IYS 

WRITE(1,26)  '20.  SURF  EXT  MEMBER: ’ ,ESURFS, ' 21 .  SURF  INT  MEMBER:', I 


A50 


•SURFS 

20  F0RMAT(A20,1X,A15,1X,A20,1X,A15) 

WRITEd,*)  '  ' 

WRITE(1,28)  'EXTERNAL  THREAD' , 'SPEC(in) 'DEVCin) •VAR($) ' 

2d  F0RMAT( jX,A15,nX,A4,15X,A3,13X,A3) 

EJTOL=EJX-EJN 

EPT0L=EPX-EPN 

EMTOL=EMX-EMN 

IJT0L=IJX-IJN 

IPT0L=IPX-IPN 

im’OL=IMX-IMN 

WfiITE(l,30)  '22.  MAJOR  DIA(in) : • ,EJX, ,EJTOL,EJA,EJV 
30  F0RMAT(A17,9X,F7.4,A1 ,F5.4,7X,F7.4,9X,F7.5) 

WRITE(1,30)  '23.  PITCH  DIA( in);', EPX,’-',EPT0L,EPA,EPV 
WRITE(1,30)  '24.  MINOR  DIA(in):' ,EMX,'-' ,EMrOL,EMA,EMV 
WHITE ( 1 , 28 )  ' INTERNAL  THREAD ' , ' SPEC ' , ' DEV ' , ' VAR ' 

WRITE(1,30)  '25.  MAJOR  DIA(in) : ' ,IJN, '+' ,IJTOL,IJA,IJV 
WRITE(1,30)  '26.  PITCH  DIA(in); ' ,IPN, '+' ,IPTOL,IPA,IPV 
WRITE(1,30)  '27.  MINOR  DIA(in); ' ,IMN, '+' ,IMTOL,IMA,IMV 
WRITEd,*)  '  ' 

WRITEd,32)  '28.  APPLIED  PRELOAD(kip) :' ,LOAD(  1) , 'DECIMAL  OF  MAX  AL 
•LOWABLE: ' .FPFRAC 

32  F0RMAT(A25, 1X,F8.2,7X,A25, 1X,F4,2) 

WRITEd,34)  'APPROX  TIGHTENING  TORQUE(ft-lb) ;' ,TO.RQ, 'FRICTION  FACT 
•OR;',FF 

34  F0RMAT(4X,A32, 1X,F8.2,9X,A16, 1X,F4.2) 

WHITEd,36)  '29.  AXIAL  L0AD(kip):',L0AD(2), '(max)', L0AD(3),’ (min)' 
36  FORMAT(A20,1X,F8.2,1X,A5,2X,F8.2,1X,A5) 

WRITE(1,38)  '30.  INTERNAL  PRESSURE(ksi ) ; ' ,PRES( 1 ) 

38  FORMAT(A27,1X,F8.2) 

WRITE(1,40)  '31.  TEMPERATURE (deg  F); ' ,TEMP, '32.  FATIGUE  DATA  REL:' 
»,REL 

40  F0RMAT(A23,1X,I4,14X,A21,1X,F5.4) 

WRITEd,*)  '  ' 

IF(SARV.GT.30. )  THEN 

WRITEd,*)  'NOTE:  THREAD  SURFACE  CONTACT  AREA  HAS  BEEN  REDUCED 
•MORE  THAN  ' 

WRITEd,*)  '30%  OF  MIN  SPEC  CONDITION.  SPECIAL  CONSIDERATION  MA 
»y  BE  REQUIRED.' 

ENDIF 

IF(SERIES.EQ.2.0R.SERIES.EQ.3)  THEN 
WRITEd,*)  'NOTE:  THREAD  BACKUSH  CONDITIONS  ARE  AS  FOLLOWS.' 
WRITEd, 50)  'BL  TO  SPEC;  ',BLS,'  BL  TO  DEV;  '  ,BLD 
50  FORMAT(A12,F5.4,10X,A12,F5.4) 

ENDIF 

WRITEd,*) 

RETURN 

END 
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c 

C  ***  SUDiWUTINE  TO  CHECK  FOR  INTERFERENCES  »*» 

C 

SUBROUTINE  INTCHK 
REAL* 4  01,02 
CHARACTER* 3  RETN 
$INSERT  CBl.TilRU 
$INSERT  CB2.THRD 
$INSERT  CB3.TriRD 
INTFLC=0 

IF(EJA.Eg.O. )  01=EJX 
IF(EJA.NE.O. )  01=EJA 
IFdJA.EO.O.)  02=IJN 
IFCIJA.NE.J.)  02=IJA 
IF (01.GT. 02)  THEN 
//riTdll,*)  '  ' 

NHrrE(l,*)  '  »»*  INTERFERENCE  CONDITION  **»’ 

WRii’Ed.D)  1NT(  1000*(G1-a2)+.5)/1000,'IN  INTERFERENCE  AT  THREAD 
»  t-lAJUR  UIAI^TERS' 

NRITEd,*)  ’  ' 

INTFLO: 1 
ENDIF 

IF(EPA.Eg.O.)  G1=EPX 
IFCEPA.NE.O.)  G1=EPA 
IFdPA.EQ.O.)  G2=IPN 
IFCIPA.NE.O.)  G2=IPA 
IF(01.GT.G2)  THEN 
WRITEd,*)  '  ' 

WRITE (1,*)  '  ***  IN-rERFERENCE  CONDITION  *»»' 

WRITEd, 3)  i:Trd000*(G1-G2)+.5)/1000,’IN  INTERFERENCE  AT  THREAD 
*  PITCH  UIAMETERo' 

WRITEd,*)  '  ' 

lilTFLO^l 

ENDIF 

IF(E‘HA.Eg.O. )  01=EMX 
IF(E;HA.NE.U.  )  OIrEMA 
IF (IMA, Eg. 0.)  02=IMN 
IFdITA.NE.O.  )  02= IMA 
IF(01.0r.02)  THEN 
WRITEd,*)  '  ' 

WRITEd,*)  '  »«»  INTERFERENCE  CONDITION  *»»’ 

W;GTF.n,B)  INTd000»(G1-G2)+.5)/1000,'IN  INTERFERENCE  AT  THREAD 

»  MINOR  DIAMETERS' 

WRITEd,*)  '  ' 

INTFLOr 1 
ENDIF 

•j  FORMAT.  Fd-<,?X,A42) 

IFdNTFLO.Eg.  1  )  THEN 

CALL  TNOUAC  PRESS  RETURN  FOR  PROGRAM  CONTROL  MENU' ,INTS(42) ) 
READ (1,30)  RETN 
IF(RETN.NE.’  ')  RETURN 
30  F0RMAT(A1) 

ENDIF 

RETURN 


o  n  o  o  n 
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***  SUBROUTINE  TO  CALCULATE  BACKLASH  CONDITIONS  *** 

C  Thii  calculation  assumes  perfect  thread  formulation  as  per  the 
C  H2d  specifications. 

C 

SUBROUTINE  BKLASH 
$ INSERT  CBl.TriRD 
$INSERT  CB2.THRD 
$ INSERT  CB3.THRD 

BLPFS=(IPX-EPN)»TAN(PFRAD)  /^BACKLASH  PRESSURE  FACE  SIDE:  TO  SPEC 
BLCFS=(IPX-EPN)»TAN(CLRAD)  /^BACKLASH  aEARANC  FACE  SIDE:  TO  SPEC 
IF(IPA.EQ.O)  THEN 
Q1=IPX 
ELSE 
gi=IPA 
ENDIF 

IF(EPA.EQ.O)  THEN 
Q2=EPN 
ELSE 
Q2=EPN 
ENDIF 

BLPFD=(Q1-Q2)»TAN(PFRAD)  /^BACKLASH  PRESSURE  FACE  SIDE:  ACTUAL 

BLCFD=(Q1-Q2)»TAN(CLRAD)  /^BACKLASH  aEARANC  FACE  SIDE;  ACTUAL 

BLS=BLPFS+BLCFS  /^BACKLASH  TOTAL:  TO  SPEC 

BLD=BLPFI>+-BLCFD  /^BACKLASH  TOTAL:  ACTUAL 

RETURN 

END 
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c 

C  *»*  SUBROUTINE  I’O  CALCULATE  VARIANCES  FRCM  TO  SPEC  GEO  »»» 

Q  «««»*»»«*•«*««»«»«»*«««««««»«»»«««««»»«««««»«««««««««»»«»*»»««»«•««««« 

C 

SUBROUTINE  PCVAR 
$INSERT  CBl.THRD 
$ INSERT  CBC.THHD 
$  INSERT  CB3.THR1) 

CHAHACTER»B  RET 

C  *»»  VARIANCE  OF  MAJOR  DIA  ON  EXTERNAL  THREAD  »«« 

I r  I EJA .  L  f .  E JN .  AND .  E<JA .  NE .  0 . )  EJV  =EJA-EJN 
IFlEJA.Eg.O. )  EJV=0. 

IF(tLIA.LE.EJX.AND.EJA.GE.EJN)  EJV=0. 

IFIILJA.GT.EJX)  EJV=EJA-EJX 
C  ***  VARIANCE  OF  PITCH  DIA  ON  EXTERNAL  THREAD  »»» 
IF(EPA.LT.EPN.AND.EPA.NE.O. )  EPV=EPA-EPN 
IFiEPA.EQ.O. j  EPV=0. 

IF  V  EPA  .  L.E .  EPX .  AND .  EPA  .GE . EPN )  EPV=0 . 

IFlEPA.GT.EPX)  EPV=EPA-EPX 
C  VARIANCE  OF  MINOR  DIA  ON  EXTERNAL  THREAD  »»* 
IFIEMA.LT.EMN.AND.EMA.NE.O.)  EMV=EMA-EMN 
IFIEMA.EQ.O. )  EMVrO. 

IFtFMA.LE.EMX.AND.EMA.GE.EMN)  EPV=0. 

IF(EMA.GT.EMX)  EMV=EMA-EMX 
C  »**  VARIANCE  OF  MAJOR  DIA  ON  INTERNAL  THREAD  »»» 

IF  1 1 JA . LT . 1 JN . AND . I JA , NE . 0 . )  I JV= I JA-I JN 
iFdJA.EO.O.)  IJV:0. 

IF  ( I  JA .  LE .  I JX .  AND .  I  JA  .GE .  UN )  I  JV=0. 

IFdJA.GT.UX)  IJV=IJA-IJX 
C  »»*  VARIANCE  OF  PITC.H  DIA  ON  INTERNAL  THREAD  »*« 

I F  a  PA . LE . I PN . AND , I P A , NE . 0 . )  IPV= IPA-IPX 
IF( IPA .FO.O. )  I?V=0. 

IFdPA.LE.IPX.AND.IPA.GE.IPN)  IPV=0. 

IF(IPA.GT.IPX)  IPV=IPA-IPX 
C  ***  VARIANCE  OF  MINOR  DIA  ON  INTERNAL  THREAD  *** 

IF (IMA . LE . IMN , AND . IMA . NE , 0 . )  IMV=IMA-IMN 
IF (IMA. Eg. 0.)  [MV=0. 

I F (IMA . LE . IMX . AND . IMA . GE . IMN )  IMVrO . 

IFdMA.GT.  IMX)  IMV=IMA-IMX 
IFiSARA.GT.SARX)  THEN 

.>AriV= iOO.»( INTL( ( 10000.»(SARA-SARX)/SARX)+.5)/10000. ) 

ENDIF 

IF(SAHA.LT.SARN)  THEN 

3AH V  = 1 Oi ) . » (INTL ( (1 0000 . * ( SARA-SARN ) /SAKN )+ . 5 ) / 1 0000 . ) 

KNi)  i  f 

I F( -SARA  , !  , . 'AHN .  AND . SAHA . LE . SARX)  SARV=0. 

HETUiT'j 


n  o  o  o  o 


««*»*««»««»««»»«««»«*«««««»«««««««««»»««»««»«««»««»«»«•»««»«»««««««»«« 

***  SUBROUTINE  TO  PRESENT  CLASS  MENU  AND  SELECTION  *** 


SUBROUTINE  TCLASS 
INTEGER»4  PICK 
$INSERT  CB1.THRD 
$INSERT  CB2.THRD 
$INSEHT  CB3.THRD 

EXTERNAL  TNOUA 
IF(SERIES.EQ.I)  THEN 
WRITE(1,«)  •  ' 
WRITE(1,»)  '»*»  UN 
WRITE(1,»)  '  ' 
WRITEd,*)  '  I 

WRITE(1,»)  ’  I 

WRITEd,*)  '  I 

WRITEd,*)  '  ' 

CALL  TNOUA  CENTER: 


/*  V-THREAD  SERIES 


***  UNIFIED  NATIONAL  THREAD  CLASSES  **»' 

I 

CLASS  1  .  V 

CLASS  2  .  2' 

CLASS  3  .  3' 


CALL  TNOUA  CENTER:  '.INTSC?)) 
READd,'(I1)»,ERR=10)  PICK 
IF(PICK.EQ.I)  CLASS=M  ’ 

IF(PICK.EQ.2)  CLASS: '2  ' 

IF(PICK.EQ.3)  CLASS: '3  * 

ENDIF 

IF(SERIES,EQ.2)  THEN  /*  ACME  SERIES 
WRITEd,*)  *  ' 

WRITEd,*)  '***  ACME  THREAD  CLASSES 

WRITEd,*)  '  ' 

WRITEd,*)  '(1)  CLASS  2G  (4)  Cl 

WRITEd,*)  '(2)  CLASS  3G  (5)  Cl 

WRITEd,*)  ’(3)  CLASS  4G  (6)  Cl 

WRITEd,*)  »  (7)  Cl 

WRITEd,*)  '  (8)  C 

WRITEd,*)  '  ’ 

CALL  TNOUA  CENTER;  ',INTS(7)) 
READd,'(I1)',ERR:20)  PICK 
IF(PICK.EQ.I)  CLASS: '2G' 

IF(PICK.EQ.2)  CLASS:' 3G' 

IF(PICK.EQ.3)  CLASS: '4G' 

IF(PICK.EQ.4)  CLASS: '2C' 

IF(PICK.EQ.5)  CLASS: '3C' 

IF(PICK.EQ.6)  CLASS:'4C' 

IF(PICK.EQ.7)  CLASS: '5C' 

IF(PICK.EQ.8)  CLASS: ’6C’ 

ENDIF 

IF ( SERIES. EQ. 3)  THEN  /*  STUB  ACME  SERIES 
WRITEd,*)  ’  ’ 

WRITEd,*)  '***  STUB  ACME  CLASSES 
WRITEd,*)  '  • 


(4)  CLASS  2C' 

(5)  CLASS  3C' 

(6)  CLASS  4C’ 

(7)  CLASS  5C' 

(8)  aASS  6C' 
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WRITE(1,»)  'CLASS  1  (Std  Stub  Acme  Form)  .  1' 

WRITEd,*)  'CLASS  2  (Modified  Form  1  Stub)  ...  2' 

WRITE(1,»)  'CLASS  3  (Modified  Form  2  Stub)  ...  3' 

WRITEd,*) 

30  CALL  TNOUA ( ' ENTER :  ' , INTS ( 7 ) ) 

READd,'(I1)',ERR=30)  PICK 
IF(PICK.EQ.I)  CLASS='1  ' 

IF(PICK.EQ.2)  CLASS='2  ' 

IF(PICK.EQ.3)  CLASS='3  ' 

ENDIF 

IF ( SERIES. EQ. 4)  THEN  /»  BUTTRESS  SERIES 
WRITEd,*)  '  ' 

WRITEd,*)  '***  STANDARD  BUTTRESS  CLASSES  ***' 


WRITEd,*)  '  ' 

WRITEd,*)  '  CLASS  1  1' 

WRITEd,*)  '  CLASS  2  2' 

WRITEd,*)  '  CLASS  3  .  3' 

WRITEd,*)  '  ' 


40  CALL  TNOUA  CENTER;  ',INTS(7)) 
READ(1,'(I1)',ERR=40)  PICK 
IF(PICK.EQ.I)  CLASSr'1  ' 

IF(PICK.EQ.2)  CLASS='2  ' 

IF(PICK.EQ.3)  CLASS='3  ' 
IF(PICK.LT.1.0R.PICK.GT.4)  GOTO  40 
ENDIF 

IF ( SERIES. EQ. 5)  THEN  /*  PF20  SPECIAL  IHREAD 

CLASSr'-  ' 

ENDIF 

RETURN 

END 
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C  ««««*«»««»««««««»««««*«•««»«««»««««««•« 

C  »»»  STAITC  AND  FATIGUE  ANALYSIS 

C  ««««««««««««»»««««««««««•««»»••»•«•»««• 

C 

SUBROUTINE  CALCU 
$INSERT  CB1.THRD 
$INSERT  CB2.THRD 
$INSERT  CB3.THRD 
C 

WRITE (1,«)  'CALL  SURFAR' 

CALL  SURFAR 

WRITEd,*)  'CALL  SAREA' 

CALL  SAREA 

WRITE(1,»)  'CALL  TORSION' 

CALL  TORSION 

WRITE (1,»)  'CALL  LDHIST' 

CALL  LDHIST 

WRITE (1,»)  'CALL  STATSF' 

CALL  STATSF 
IF(SDFLAG.EQ.I)  THEN 
DO  20  1=1,7 
DO  10  J=1,7 
FSF(I,J)=0. 

10  CONTINUE 
20  CONTINUE 
ENDIF 

IF(SDFLAG.EQ,2)  THEN 
WRITE (1,»)  'CALL  NOTCH' 

CALL  NOTCH 

WRITE(1,»)  'CALL  TSCF' 

CALL  TSCF 

WRITE (1,*)  'CALL  FATIGUF' 

CALL  FATIGUE 
ENDIF 

WRITEd,*)  'CALL  FOUTPT' 

CALL  FOUTPT 
RETURN 


n  n  o  n  o 


«•«•«»««««««»«««««««««««»««»««»«»«««««««»•««»««««»«»*«««««««««««•««««« 

»»»  SUBROUTINE  TO  RECALCULATE  THREAD  GEOMETRY  &  ANALYSIS  RESULTS 


SUBROUTINE  RECALC 


$ INSERT  CB1.THRD 
$ INSERT  CB2.THRD 


$ INSERT  CB3.THRD 

IF(SERIES.EQ.I) 
IF ( SERIES. EQ. 2) 
IF ( SERIES. EQ. 3) 
IF  (SERIES.  EQ.i]) 
IF (SERIES. EQ. 5) 
RETURN 
END 


CALL  H28VEE 
CALL  H28ACM 
CALL  H28STB 
CALL  H28BUT 
CALL  PF20 
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o  n  o  o  o 


«»« 


***  SUBROUTINE  TO  CALCULATE  THREAD  SURFACE  CONTACT  AREAS 


SUBROUTINE  SURFAR 
$ INSERT  CB1.THRD 
$INSERT  CB2.THRD 
$INSERT  CB3.THRD 

HELIXSr ( ( PI*IPN ) .+PITCH*»2 . )«» . 5/PITCH*LE 
SARX=HELIXS» ( (EJX-IMN )/COS(PFRAD) )» . 5 
SARN=HELIXS«( (EJN-IMX)/COS(PFRAD) )».5 
IF(EJA.GT.EJX.OR. (EJA.LT.EJN.AND.EJA.NE.O) )  G1=EJA 
IF((EJA.LE.EJX.AND.EJA.GE.EJN).OR.EJA.EQ.O)  G1=EJN 
IF(IMA.GT.IMX.OR.(IMA.LT.IMN.AND.IMA.NE.O))  G2=IMA 
IF((IMA.LE.IMX.AND.IMA.GE.IMN).OR.IMA.EQ.O)  G2=IMN 
SARA=HELIXS»( (G1-G2)/C0S(PFRAD) )».5 
RETURN 
END 


J  SUBROUTINE  TO  CALCULATE  STRESS  AREA  AT 


SUBROUTINE  SAREA 
$  INSERT  SB  1. THRU 
i  INoc.r'  1.  lBS  .  THRU 
IlNStHT  SB, i. THRU 
REAL* 4  HO 

iF(3EHIES.EQ.l)  H0=.48»PITCH 
IKSERIES.EO.^)  H0=.5»PITCH 
IF(SERIES.EQ.i)  H0=.3*PITCH 
iF I  SERIES. Eg. 4)  H0=.6*PITCH 
IF(SERIES.EQ.B)  THEN 
IF(FITCH.EQ. .5)  H0=.24 
iF(FrrCH.EQ. .75)  HO=.359 
IF (P ITCH. EQ.. 375)  H0=.1795 
IF(PITCri.EQ..25)  H0=.12 
ENDIF 

AT=(FI/4. )»(IPN-3.»H0/4.)»»2. 

RETURN 

ENi) 


Q  «**««««*««««»«»•««««««««»«««««««««««*«««««««««««•««»«««««««««»««««««*« 

C  ***  SUBROUTINE  TO  INPUT/EDIT  THREAD  JOINT  PRELOAD  »»» 

c 

SUBROUTINE  PRELOD 
INTEGER* 4  CHOICE 
IINSERT  CB1.THRU 
IINSERT  CB2.THRD 
$INSERT  CB3.THRD 

EXTERNAL  TNOUA 
WRITEd,*)  •  • 

WRITEd,*)  •»**  SELECT  APPROPRIATE  PRELOAD  »»»' 

WRITEd,*)  '  ' 

WRITE d,»)  'PRELOAD  AMOUNT' 


WRITEd,*)  'NONE  .  1' 

WRITEd,*)  'FULL  .  2' 

WRITEd,*)  'PARTIAL  .  3' 

WRITEd,*)  'BY  LOAD  .  .  .  4' 

WRITEd,*)  'BY  TORQUE  .  5' 

120  CALL  TNOUA ('ENTER:  ',INTS(7)) 

READd,'(I1)',ERR=120)  CHOICE 
CALL  SAREA 

PREMAX=.9*YS*AT  /*  MAX  RE00M1ENDED  PRELOAD  (W/0  PLASTIC) 


IF(CHOICE.EQ.I)  THEN 
LOADd)=0. 

FF-  2 
TORQsO. 

FPFRACsO. 

ENDIF 

IF(CH0ICE.EQ.2)  THEN 
L0ADd)=PREMAX 

121  CALL  TNOUACENTER  FRICTION  FACTOR ( .2-DRY, . 15-LUB) :  ',INTS(39)) 
READd,'(F4.3)',ERR=121)  FF 

FPFRAC= 1 . 

TORQsLOAD (1 ) *  1 000 . *EJN*FF/ 1 2 . 

ENDIF 

IF ( CHOICE. EQ. 3)  THEN 
WRITEd,*)  '  ' 

122  CALL  TNOUACENTER  DECIMAL  FRACTION;  ',INTS(24)) 

READd,'(F4.3)' ,ERR=122)  FPFRAC 

LOAD( 1 )=PREMAX*FPFRAC 

123  CALL  TNOUACENTER  FRICTION  FACTOR  ( .2-DRY, .  15-LUB):  ',INTS(39)) 
READd,'(F4.3)',ERR=123)  FF 

TORQrLOAD (1 ) » 1 000 . *EJN*FF/ 1 2 . 


IF ( CHOICE. EQ. 4)  THEN 
WRITE(%»)  '  ' 

124  CALL  TNOUA( 'ENTER  PRELOAD  OR  CLAMPING  LOAD  (kip):  '.INTSCSS)) 
READ(1,»,ERR=124)  LOAD(1) 

IF ( LOAD (D.GT. PREMAX)  THEN 

WRITEd,*)  'Preload  given  is  beyond  the  approximate  elastic' 
WRITE( 1,125)  'limit  of  the  specified  material: ' ,PREMAX, ' (kip) 

125  FORMAT(A32,1X,F5.1,A5) 

GOTO  124 
ENDIF 

126  CALL  TNOUA CENTER  FRICTION  FACTOR (.2-DRY,. 15-LUB):  ',INTS(39)) 
READd, '(F4.3)' ,ERH=126)  FF 

FPFRAC=LOAD( 1 )/PREMAX 
TORQrLOAD (1 ) » 1 000 . »FF«EJN/ 12. 

ENDIF 

IF ( CHOICE. EQ. 5)  THEN 
WRITEd,*)  '  ' 

WRITE(1,*)  'CAUTION:  Determining  preload  by  tightening  torque' 
WRITE(1,*)  'can  only  be  considered  as  a  rough  approximation.' 
WRITEd,*)  'Experimental  verification  of  actual  conditions  * 
WRITEd,*)  'should  be  applied  for  critical  applications.' 
WRITEd,*)  '  ' 

130  CALL  TNOUA CENTER  FRICTION  FACTOR ( .2-DRY, . 15-LUB) :  •,INTS(39)) 
READd,'(F4.3)'  ,ERR=130)  FF 

140  CALL  TNOUACENTER  APPLIED  TORQUE(FT-LBS):  ',INTS(30)) 

READd, *,ERR=  140)  TORQ 

LOAD ( 1 ) =T0RQ/ ( EJN*FF ) *  1 2 . / 1 000 . 

IF  (LOAD  (D.GT.  PREMAX)  THEN 
TORQMAX=PREMAX* 1 000 . *EJN*FF/ 1 2 . 

WRITEd,*)  'Preload  induced  by  given  torque  exceeds  linear  ' 
WRITEd,*)  'elastic  range  of  specified  material.  ' 

WRITE( 1,142)  'Maximum  Recotwnended  Torque; ' ,T0RqMAX, ' (ft-lb) ' 
142  F0RMAT(A27,1X,F8.2,A7) 

GOTO  140 
ENDIF 

FPFRAC=LOAD( 1 ) /PREMAX 
ENDIF 
RETURN 


o  n  o  o  o 


»*»  SUBROUTINE  TO  CALC  TORSIONAL  STRESS  DUE  TO  TIGHTENING  &  PRELOAD  ** 

SUBROUTINE  TORSION 
$ INSERT  CB1.THRD 
$INSERT  CB2.THRD 
$INSERT  CB3.THRD 

YS=AMIN1(EYS,IYS)  /«  FIND  MINUMUM  YIELD  STRESS 
PREMAX= .9*YS*AT 

TPE= ( . 1 6/PI ) »PREMAX*EJX»EMN/ ( EMN»«4 . -HDIA*«4 . ) 

TPI=( .  16/PI )‘‘PREMAX»ODIA»IMN/(ODIA»»4.-IMN*»4. ) 

RETURN 

END 
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l.*- 

1.  ir— 


c 

C  '*»  SUBROUTINE  TO  EVALUATE  LOAD  HISTORY  PARAMETERS  **» 

Q  «««««««»««««»«»««««««««««»««»»«*»««»«««»««««««*»««««*»»»«««»«••««««««« 

c 

SUBROUTINE  LDHIST 
$INSERT  CBl.THRD 
$ INSERT  CB2.THRD 
$INSERT  CB3.THRD 
C 

C  CALCULATE  STRESS  DUE  TO  PRELOAD  CONDITION 
C 

DO  2  1=1,12 
DO  1  J=1,2 
S(I,J)=0. 

1  CONTINUE 

2  CONTINUE 

IF(LOAD(1).EQ.O.)  THEN 
ESPX=0. 

ESPN=0. 

ESPA=0. 

ISPX=0. 

ISPN=0. 

ISPA=0. 

GOTO  10 
ENDIF 

APPLD=LOAD(1) 

WRITEd,*)  'CALL  HOOP' 

CALL  HOOP 

WRITE(1,»)  'CALL  SSHEAR' 

CALL  SSHEAR 

WRITE (1,»)  'CALL  AXSCF' 

CALL  AXSCF 

WRITEd,*)  'CALL  HEYWD' 

CALL  HEYWD 

WRITEd,*)  'CALL  OCT' 

CALL  OCT 
ESPXrSOCTEX 
ESPN=SOCTEN 
ESPArSOCTEA 
ISPX=S0CTIX 
ISPN=SOCTIN 
ISPA=SOCTIA 
C 

C  CALCULATE  STRESSES  DUE  TO  GIVEN  MAX  &  MIN  LOADS 
C  AND  GIVEN  MAX  &  MIN  INTERNAL  PRESSURES  (IF  ANY) 

C 

10  DO  20  1=1,2 
APPLD=LUAU(I+1) 

IPRES=PRESd) 
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WRITEd,*)  'CALL  HOOP' 

CALL  HOOP 

kVRITE(l,»)  'CALL  SSHEAR' 

CALL  SSHEAR 

WRITEd, »)  'CALL  AXSCF' 

CALL  AXSCF 

WRITEd,*)  'CALL  HEYWD* 

CALL  HEYWD 

WRITEd,*)  'CALL  OCT' 

CALL  OCT 
Sd,I)=SOCTEX 
S(2,I)=SOCTEN 
S(3,I)=SOCTEA 
S(4,I)zSOCTIX 
S(5,I)=SOCTIN 
S(6,I)=SOCTIA 
S(7,I)=TOCTEX 
S(8,I)=TOCTEN 
S(9,I)=TOCTEA 
SdO,I)=TOCTIX 
Sdl,I)=TOCTIN 
Sd2,I)=TOCTIA 
IF(LOAD(3).EQ.O.)  GOTO  30 
20  CONTINUE 

30  MEAN( 1 )=(ESPX+(S( 1 , 1 )+S( 1,2) )/2. )*100./ETS 
MEAN(2)  =  (ESPN+(S(2,1)-t.S(2,2))/2.)*100./ETS 
MEAN(3)  =  (ESPA+(S(3d)+S(3,2))/2.)»100./ETS 
MEAN(4)=(ISPX+(S(4, 1 )+S(4,2))/2. )»100./ITS 
MEAN(5)=(ISPN+(S(5,1)+S(5,2))/2.)*100./ITS 
MEAN(6)=(ISPA+(S(6,1)+S(6,2))/2.)»100./ITS 
ALTd)  =  ((Sd,1)-Sd,2))/2.)*100./ETS 
ALT(2)=((S(2,1)-S(2,2))/2.)*100./ETS 
ALT(3)=((S(3,1)-S(3,2))/2.)*100./ETS 
ALT(4)=((S(4, 1 )-S(4,2) )/2. )*100./ITS 
ALT(5)=((S(5,1)-S(5,2))/2.)*100./ITS 
ALT(6)=((S(6,1)-S(6,2))/2.)*100./ITS 
RETURN 
END 


o  D  o  n  o 


»*»  SUBROUTINE  TO  CALCULATE  HOOP  STRESS  ON  EXTERNAL  MEMBER  *»» 

»«»««««««»«*»««««»*««««««««»«»«»«»*«»»»««««*»««««««««««*»»«*»«»«««««** 


SUBROUTINE  HOOP 
REAL»4  G1 
$INSERT  CBl.THRD 
^INSERT  CB2.THRD 
IINSERT  CB3.THRD 

SHEX=(2.»PRES( 1 )»(HDIA)»*2. )/(EMX»»2.-HDIA*«2. ) 
SHEN=(2.»PRES( 1 )»(HDIA)**2. )/(EMN»*2.-HDIA»»2. ) 
IF((EMA.GE.EMN.AND.EMA.LE.EMX).OR.EMA.EQ.O.)  GUEMN 
IF((EMA.LT.EMN.AND.EMA.NE.O.).OR.EMA.GT.EMX)  G1=EMA 
SHEA=(2.»PRES( 1 )*(HDIA)»«2. )/(G1»*2.-HDIA»*2. ) 
RETURN 
END 


1 


c 

C  »«««««««»««««»««««««»«»»»»««««««««««»«•«•«««»«*«»«««»«•«««••«««»•««««« 

C  *»»  SUBROUTINE  TO  CALCULATE  SHEAR  AREAS  AND  STRENGTHS  «•» 

c 

SUBROUTINE  SSHEAR 
$INSERT  CB1.THRD 
IINSERT  CB2.THRD 
$INSERT  CB3.THRD 

C  ETS  -  EXTERNAL  MEMBER  TENSILE  STRENGTH 

C  ITS  -  INTERNAL  MEMBER  TENSILE  STRENGTH 

IF(ETS.EQ.ITS)  THEN  /»  EQUAL  INT  &  EXT  STRENGTH 

HELIXS=N*LE* ( ( PI*IPN ) .+PITCH»»2 . ) »» . 5 
ASHEAR=HELIXS/(2.*N) 

ENDIF 

IF(ETS.GT.ITS)  THEN  /»  EXT  STRENGTH  GREATER 

HELIXS=N*LE» ( ( PI»EJN ) »»2 . +PITCH«»2 . ) »» . 5 
ASHEARz . 5*HELIXS» ( PITCH+ (TAN { PFRAD )+TAN ( CLRAD ) ) » ( EJN-IPX ) ) 

ENDIF 

IF(ITS.GT.ETS)  THEN  /»  INT  STRENGTH  GREATER 

HELIXS=N»LE« ( ( PI*IMX ) »*2 . +PITCH«*2 . ) »« . 5 
ASHEAR= . 5»HELIXS» ( PITCH+ ( TAN ( PFRAD )+TAN ( CLRAD ) ) » ( EPN-IMX ) ) 

ENDIF 

SSTRESS=LOAD ( 2 ) /ASHEAR 

RETURN 

END 
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O  Ci  o  o  cz 


J 

C  •  ^ 

««*««»»««««««««»»«*«»*«»«*«»«««*«««»»»««««««»»»*««»««««««»««»««««««««»  j 

***  SUBROUTINE  TO  CALCULATE  AXIAL  STRESS  CONCENTRATION  FACTOR  ***  1 

***  AND  FILLET  STRESS  AT  THREAD  HOOT  AREA  DUE  TO  AXIAL  LOAD  *»*  J 


SUBROUTINE  AXSCF 

REAL»i4  0ARMA,NVAR1,WAR2,WVAR3,K1,W0,W1,W2,K2  S 

$  INSERT  CB1.THRD 
$INSEHT  CB2.rHRU 

$INSERT  CB3.THRD  j 

GARHAr . 3* (PITCH/HE  1 )««. 7 

WVAR1  =  ((GAt^»HE1/ERR)»».5)».6  :5 

•NVAR2=  ( ( ( ( EMN-HD I A )  /  ( 2 .  »ERR ) )  *» .  5 )  *6 . )  - 1 . 

NVAH3=  '4»GARWA*HE  1  /ERR 

K 1  =-NVAR  1  *WV AR2/  ( ( WVAR 3+ .  09*  ( WVAR2 )  *»2 . )  *» .  5 ) 

W0= 1 . - ( ( PFANG+CLANG ) / 1 80 . ) ** ( 1 . +2 . 4* ( ERR/ (GAMMA»HE 1 ) ) *» . 5 ) 

W1  =  ((EiW2./ERR)»».5)-1. 

N2=((EMN/2./EHR)«».5)-1. 

IF(EMA.GT.EMX.OR.(EMA.LT.EMN.AND.EMA.NE.O.))  G1=EMA 
IF((EI'W.LE.EMX.AND.EtTA.GE.EMN).OR.EMA.EQ.O.)  G1=EMN 
W3=((Gl/2./ERR)»*.5)-1. 

KAEX=1.+((1.25»(K1-1.)*W1*W0)/((K1-1.)*»2.+1.5625*W1»*2.)»».5)»C0S 
»(2.*Fi/3.-2.»PFRAD) 

KAEN=1.+((1.23»(K1-1.)»W2»W0)/((K1-1.)**2.+1.5625»W2««2.)»».5)»C0S 
»(2.*PI/3.-2.»PFRAD) 

KA£A=1.+((1.25*(K1-1.)»W3»WO)/((K1-1.)»»2.+1.5625*W3»«20»».5)*COS 
»(2.»?I/3.-2.*PFRAD) 

KNEX=1.+((1.25*(K1-1.)»W1*W0)/((K1-1.)»«2.+1.5625*W1»»2.)»».5) 

IF(KAEX.LT.l.)  KAEXrl. 

IF(KAEN.LT.l.)  KAEN=1. 

IF(KAEA.LT. 1. )  KAEA=1. 

3TEX=KAEX»APPLD» ( 4 . /P  E ; / ( EMX**2 . -HDIA»*2 . ) 

STEN=KAEN*APPLD» ( 4 . /PI ) / ( EMN»»2 .-HDIA»»2. ) 

STEAz  KAEA*APPLD» ( 4 . /PI ) / (G 1 »»2 . -HDI A»»2 . ) 

GAK^IAr .  3*  ( PITCH/H1 1 )  »* .  7 
WVARl=((GAMMA*HI1/IRR)»».5)».b 
WVAn2=((((0DIA-IJX)/(2.»IRR))*».5)»6.)-1 
WVAH  3=4»GAM'IA*HI  1  /IRR 

KCziN'yAH  l»WVAR2/(  (WAR3+.09*(WVAR2)«»2.  )»».5) 

WO^ 1 . - ( ( PFANG+CLANG ) / 1 80 . ) »* ( 1 . +2 . 4« ( IRR/ (GAPMA*HI 1 ) ) »* . 5 ) 

Wl=l .bo7»((IJN/2./IHR)»*.3)-.U 
W2=l .b67»((IJX/2./IRH)»».5)-.5 

IFdJA.GT.IJX.OR.dJA.LT.IJN.AND.IJA.NE.O.))  G1  =  IJA 
IFdJA.EU.O.  .ilH.(IJA.LE.IJX.ANDdJA.GEdJN))  G1=IJX 
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W3=1.667»((G1/2./IRR)«».5)-.5 

KAIX= 1 . + ( ( K2- 1 . ) »W 1 »W0/ ( ( K2- 1 . ) *« . 2+W 1 »*2 . ) »* . 5 ) *COS 
»(2.*PI/3.-2.*PFRAD) 

KAIN= 1 . + ( ( K2- 1 . ) »W2*W0/ ( ( K2- 1 . ) »* . 2+W2»»2 . ) »» . 5 ) »COS 
»(2.»PI/3.-2.*PFRAD) 

KAIAr 1 . + ( ( K2- 1 . ) «W3»W0/ ( ( K2- 1 . ) »» . 2+W3»»2 . ) *» . 5 ) »COS 
*(2.»PI/3.-2.»PFRAD) 

KNIX=1 .+( (K2-1 .  )»W1*W0/(  (K2-1 .  )*‘».2+W1»»2.  )»».5) 
IF(KAIX.LT.1.)  KAIX=1. 

IF(KAIN.LT.1.)  KAIN=1. 

IFCKAIA.LT.I.)  KAIAr 1. 

STIX=KAIX*APPLD» ( 4 . /PI ) / (0DIA»*2 . -IJN*»2 . ) 
STIN=KAIN»APPLD» ( 4 . /PI ) / (0DIA«*2 . -IJX»«2 . ) 
STIA=KAIA»APPU)* ( 4 . /PI ) / (0DIA»*2 . -G 1 »»2 . ) 

RETURN 


c 

C  »»»»»*»»»»»*»»*»**»»»»»»»#«»»»»«»»»*»»»»»*»»»»***»»»»»***»»<'****»*»*** 

c  ***  SUBROUTINE  TO  CALCULATE  VARIABLES  USED  IN  HEYWOOD'S  EQUATION  »** 

C  »»**»*«»»*»«»»*»«***»»*»»»»«»»»»******«*»»»»*»»************•••*••*•**• 

c 

SUBROUTINE  HSYWD 

REAL»4  V,V2,V3,U1,U2,U3,G1,U4 

»D1EX,D1EN,D1EA,D1IX,D1IN,D1IA,P0,U5,U6,U7,U8,Y,Z, 

*SBEX(7),SBEN(7),SBEA(7),SBIX(7),SBIN(7),SBIA(7) 

$INSERT  CBI.THRD 
$ INSERT  CB2.THRU 
$II\ISERT  CB3.THRD 
C 

C  CALCULATION  OF  E  PARAMETER 
C 

V=( 1 .-COS( (PI/3- )-PFRAD) ) 

V2=SIN ( ( PFRAD+CLRAD ) / 2 . ) 

V3=COS(PFRAU) 

E£X= ( ( HV-SEMAX-ERR*V ) /V3 ) *V2 
EEN=( (HV-SEMIN-ERR»V)/V3)*V2 
EEA= ( ( HV-SEMIN-ERR*V ) /V  3 ) *V2 
ElXr ( ( HV-SIMAX-IRR^V ) /V3 ) »V2 
EIN=((HV-SIMIN-IRR»V)/V3)*V2 
EIA=((HV-SIMIN-IRR»V)/V3)*V2 
C 

C  CALCULATION  OF  Ml 
C 

U1=TAN(PI/4.-(PFRAD/2. ) )+TAN(PI/4.-(CLRAD/2. ) )-SIN(PI/3.-(PFRAD) ) 
»-SIN(PI/3.-CLRAD) 

U2=PITCH/2. 

U  3=TAN ( PFR AD ) +TAN ( CLRAD ) 

M 1 EX=ERR»U 1+U2+U3* ( EPX-EMX ) » . 5 
M1EN=ERR»U1+U2+U3»(EPN-EMN)».5 

IF(EPA.GT.EPX.OR.(EPA.LT.EPN.AND.EPA.NE.O.))  Z1=EPA 
IF((EPA.LE.EPX.AND.EPA.GE.EPN).OR.EPA.EQ.O.)  Z1=EPN 
IF(liM.GT.EMX.OR.(EMA.LT.EMN.AND.EMA.NE.O.))  Z2sEMA 
IF((EMA.LE.EMX.AND.EMA.GE.EMfO.OR.EMA.EQ.O.)  Z2=EMN 
G1=(Z1-Z2)».5 
M1EA=ERR*U1+U2+U3*G1 
M 1 IX=IRR*U 1+U2+U3* ( I JN-IPN ) » . 5 
M 1 IN= IRR»U 1+U2+U3* ( I JX-IPX ) * . 5 

IFdJA.GT.IJX.OR.dJA.LT.IJN.AND.IJA.NE.O.))  Z1=IJA 
IF(dJA.LE.IJX.AND.IJA.GE.IJN).OR.IJA.EQ.O.)  ZUIJX 
IFdPA.GT.IPX.OR.CiPA.LT.IPN.AND.IPA.NE.O.))  Z2=IPA 
IF((IPA.LE.IPX.AND.IPA.GE.IPN).0R.IPA.EQ.0.)  Z2=IPX 

G1=(Z1-Z2)»,5 

M1IA=IHR»U1+U2+U3»G1 

c 

C  CALCULATE  VALUES  FOR  THETA 

C 
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IF(SERIES.EQ.4.0R.SERIE:.S.EQ.5)  thfn 
U4=C0S (PI/ 3 . -CLRAD )-COS ( PI/ 3 • -Hr  RAD ) 

ETHETAXrATAN ( ( ERR»U4 ) /M 1 EX ; 

ETHETANrATAN  ( ( ERR»U4 ) /M 1 FJ^ ) 

ETHETAA=ATAN ( ( ERR»U4 ) /M 1 EA ) 

ITriETAXrATAN ( (IRR*U4 ) /M 1 IX ) 

ITHETANrATAN ( ( I RR*U4 ) /M 1 IN ) 

ITHETAA=ATAN ( ( IRR»U4 ) /M 1  lA ) 

CALCULATE  VALUES  FOR  D1 

D 1 EX=M 1 EX/COS ( ETHETAX ) 

D 1 EN =M 1 EN/COS ( E^HETAN ) 

D 1 EA=M 1 EA/COS ( ETHETAA ) 

D 1 IX=M1 IX/COS( ITHETAX ) 

D 1 IN=M1 IN/COS ( ITHETAN ) 

D 1 IA=M 1 lA/COS ( ITHETAA ) 

ELSE 

D1EX=M1EX 

D1EN=M1EN 

DlEAzMIEA 

DlIXrMlIX 

D1IN:M1IN 

D1IA=M1IA 

ENDIF 

CALCULATE  VALUES  FOR  D'  (EXT  TriRD) 

P0= ( EJN-IMX ) » . 05»C0S ( PFRAD ) 

DPEX ( 1 ) = ( EJX-IMN )/4 . + ( IMN-EMX )/2. 

DPEN( 1 )=(EJN-IMX)/4.+(IMX-EMN)/2. 
IF(EMA.GT.EKX.OR.(EMA.LT.EMN.AND.EJ1A.NE.O.))  G1=EMA 
IF(EHA.EQ.O..OR.(EMA.LE.EMX.AND.EMA.GE.EMN))  G1=EMN 
DPEA ( 1 ) r ( EJN- IMX ) / 4 . + ( IMX-G 1 ) /2 . 

DPEX  ( 2 )  =DPEX  ( 1 )  -*-PO» .  5629 
DPEN ( 2 ) =DPEN ( 1 ) +P0» . 5629 
DPEA ( 2 ) =DPEA ( 1 ) +PO» . 5629 
DPEX ( 3 ) =DPEX ( 1 ) -PO» . 5629 
DPEN ( 3 ) =DPEN ( 1 ) -P0» . 5629 
DPEA ( 3 ) =DPEA ( 1 ) -P0« . 5629 
DPEX ( 4 ) =DPEX ( 1 ) +P0« 1.11974 
DPEN ( 4 ) =DPEN ( 1 ) +P0» 1.11974 
DPEA ( 4 ) =DPEA ( 1 ) +P0» 1.11974 
DPEX ( 5 ) =DPEX ( 1) -P0» 1 . 1 1 974 
DPEN ( 5 ) =DPEN ( 1 ) -P0» 1.11974 
DPEA(5)=DPEA( 1 )-P0»1 .11974 
DPEX ( 6 ) =DPEX ( 1 ) +P0» 1 . 624 1 
DPEN ( 6 ) =DPEN ( 1 )+P0» 1.6241 
DPEA  ( 6 )  =DPEA  ( 1 )  -*-P0»  1.6241 
DPEX ( 7 ) =DPEX ( 1 ) -P0» 1.6241 


o  o  o  000 


OPEN ( 7 ) =DPEN ( 1 ) -PO« 1.6241 
DPEA ( 7 ) =DPEA ( 1 ) -PO« 1 . 624  1 

CALCULATE  HELIX  AT  POINT  OF  APPLIED  LOAD 


PTX ( 1 )  :r  M«I  ( ( P I«  ( EMX+2 .  *DPEX (1 ) ) ) »»2 .  +PITCH*»2 . ) ' 
PTN (1 ) - N*LE  * ( ( P I * ( EMN+2 . »DPEN ( 1 ) ) ) »»2 . +PITCH*»2 . )  ’ 
PTA  (  . .  N*LE»  ( ( P  I*  (G 1  +2 .  “DPEA ( 1 ) ) ) »»2 .  +PITCH*»2 . ) 
PTX ( 2 ) - U  »  LE« ( ( P I « ( EMX+2 . »DPEX 1 2 ) ) ) **2 . +P ITCH»»2 . ) ^ 
PTN {2)= N»LE* ( ( P I» ( EMN+2 . »DPEN ( 2 ) ) ) »»2 .+PITCH»*2 . ) ' 
PTA  ( 2 )  =N»LE*  ( •:  PI»  (G 1  +2 .  »DPEA ( 2 ) )  )**2 .+PITCH**2 . ) *' 
PTX(3)=N»LE«((PI»(EMX+2.*DPEX(3)))»*2.+PITai»«2.)' 
PTN(i)=N«LE*((PI» (EMN+2. *DPEN(3)))**2.+PITCH*«2.)^ 
PTA ( 3 ) =N»LS» ( ( PI» (G 1 +2 . »DPEA ( 3 ) ) ) **2 .+PITCH»»2 . ) 
PTX ( 4 ) =N»LE» ( ( PI » ( EMX+2 . »DPEX( 4 ) ) ) »»2 .+PITCH*«2 . )  ’ 
PTN ( 4 ) =N*LE  * ( ( P I » ( EMN+2 . »DPEN ( 4 ) ) ) »*2 . +PITCH»«  2 . ) ' 
PTA(4)=N»LE*((PI*(G1+2.»DPEA(4)))»*2.+PITCH»»2.)»' 
PTX ( 5 ) =N*  LE* ( ( PI » ( EMX+2 . *DPEX ( 5 ) ) ) **2 . +PITCH*»2 . ) 
PTN ( 6 ) =N*LE» ( ( P I« ( EMN+2 . »DPEN ( 5 ) ) )*»2 .+PITCH**2 . )  ‘ 
PTA ( 5 ) =N»  LE» ( ( P I » ( G 1 +2 . »DPEA ( 5 ) ) ) »*2 . +PITCH»»2 . ) »' 
PTX ( D ) -N»LE»  ^ ( PI* ( EMX+2 . »DPEX( 6 ) ) )»»2 .+PITCH*»2 . ) ' 
PTN ( b ) =N*LE* ( ( P I* ( EMN+2 . *DPEN ( 6 ) ) ) »*2 . +PITCH*»2 . ) ' 
PTA ( 6 ) =N»LE* ( ( PI* (G 1+2 . *DPEA (6 ) ) )»«2 .+PITCH**2 . ) 
PTX ( 7 ) =N*LE* ( ( PI* ( EMX+2 . *DPEX(7 ) ) )»»2 .+PITCH»*2 . ) ' 
PTN( 7  J =N*LE* ( ( PI* ( EMN+2 . *DPEN ( 7 ) ) )**2 .+PITCH**2 . ) 
PTA(7)=N*LE*((PI*(G1+2.*DPEA(7)))**2.+PITCH»»2.)*' 
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CALCULATE  VALUES  FOR  D'  (INT  THRD) 


DPIX( 1 )=(IJN-EJX)/2.+(EJX-IMN)/4. 

DPIN( 1 )=(IJX-EJN)/2,+(EJN-IMX)/4. 

IF((IJA.LT.IJN.AND.IJA.NE.O.).OR.IJA.GT.IJN)  G1=IJA 

IFdJA.EQ.O.  .OR.(IJA.LE.IJX.AND.IJA.GE.IJN))  G1=IJX 

DPIA( 1 )=(G1-EJN)/2.+(EJN-IMX)/4. 

DPIX(2)=DPIX(1)+PO*.562g 

DPIN(2)=DPIN(1)+P0»,5629 

DPIA(2)=DPIA(1)+P0*.5629 

DPIX(3)=DPIX(1)-P0*.5629 

DPIN(3)=DPIN(1)-P0*.5629 

UPIA(3)=DP1A(1)-P0*.5629 

DPIX(4)=DPIX( 1 )+PO*1 . 1 1974 

DPIN(4)=DPIN( 1 )+PO*1 . 1 1974 

DPI A ( 4 ) zDPIA (1 ) +PO* 1.11974 

DPIX(6)=DPIX( 1 )-PO*1 . 1 1974 

dpin(5)=up:n( 1 )-po*i . i 1974 

DPIA(Tj--DPIA(  l)-PO»1  .1 1974 
DPI  X  ( 6 )  rDPI  X  (1 ) +.PO*  1 . 624 1 
DPIN(6)=DPIN( l)+PO*1 .6241 
DPIA(6)=DPIA( 1 )+P0*1 .6241 
DPIX(7)=DPIX(1)-PO*1.624l 
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DPIN (7 ) =DPIN ( 1 ) -P0» 1.6241 
DPIA ( 7 ) =DPIA ( 1 ) -P0« 1 . 624 1 
C  CALCULATION  OF  B  &  A 
U5=TAN ( PI/ 4 . -PFRAD/2 . ) 

U6=SIN(PI/3.-PFRAD) 

U7=TAN(PFRAD) 

U8=COS(PFRAD) 

Y=ERR 

Z=IRR 

DO  10  1=1,7 

BEX(I)=(DPEX(I)-Y*V)/COS(ATAN((DPEX(I)»U7+Y»U5-Y»U6)/(DPEX(I)-Y«V) 

»)) 

BEN ( I ) = ( DPEN ( I ) - Y»V ) /COS ( ATAN ( ( DPEN ( I ) »U7+Y»U5-Y»U6 ) / ( OPEN ( I ) - Y» V ) 

»)) 

BEA  ( I ) = ( DPEA  ( I )  -Y*V )  /COS  ( ATAN  ( ( DPEA  ( I )  *U7+Y»U5-Y»‘U6 )  /  ( DPEA  ( I )  -Y»  V ) 

»)) 

BIX(I)=(DPIX(I)-Z*V)/COS(ATAN((DPIX(I)*U7+Z»U5-Z»U6)/(DPIX(I)-Z«V) 

*)) 

BIN(I )= (DPINd )-Z»V )/COS( ATAN( (DPIN( I )*U7+Z*U5-Z»U6)/ (DPIN( I )-Z»V) 

»)) 

BIA(I)=(DPIA(I)-Z»V)/C0S(ATAN((DPIA(I)»U7+Z»U5-Z»U6)/(DPIA(I)-Z*V) 

•)) 

AEX ( I ) = (DPEX ( I ) -Y»U6 ) /U8-SIN ( PFRAD+ETHETAX ) » ( D 1 EX/2 . -Y» ( U5-U6 ) ) 

AEN ( I ) = ( DPEN ( I ) -Y»U6 ) /U8-SIN ( PFRAD+ETHETAN ) * (D 1 EN/2 . -Y» (U5-U6 ) ) 
AEA(I )= (DPEA( I )-Y»U6 )/U8-SIN(PFRAD+ETHETAA)» (D1EA/2 .-Y* (U5-U6) ) 
AIX(I)=(DPIX(I)-Z»U6)/U8-SIN(PFRACL-ITHETAX)»(D1IX/2.-Z»(U5-U6)) 

AIN (I ) = ( DPIN ( I ) -Z»U6 ) /U8-SIN ( PFRAD+ITHETAN ) » ( D 1 IN/2 . -Z» ( U5-U6 ) ) 

AIA (I ) = ( DPIA (I ) -Z»U6 ) /U8-SIN ( PFRAD+ITHETAA ) » ( D 1 IA/2 . -Z» ( U5-U6 ) ) 

10  CONTINUE 

C 

C  CALCULATE  KB  (FILLET  STRESS  CONCENTRATION  FACTOR) 

C 

KBEX=(1.+.26»(EEX/Y))»».7 
KBEN=(1.+.26»(EEN/Y))»*.7 
KBEA=( 1 .+.26»(EEA/Y) )»».7 
KBIX=(1.+.26»(EIX/Z))**.7 
KBIN=(1.+.26»(EIN/Z))»*.7 
KBIA= ( 1 . + . 26» ( EIA/Z ) ) »» . 7 
C 

C  CALCULATE  SECOND  COEFF  TERM  IN  HEYWOOD  EQ 
C 

T 1 X ( 1 ) = . 2 1 28*APPLD/PTX ( 1 ) /COS ( PFRAD ) 

T 1 N ( 1 ) = . 2 1 28«APPLD/PTN ( 1 ) /COS ( PFRAD ) 

T1A( 1 )= .2128»APPLD/PTA( 1 )/COS(PFRAD) 
T1X(2)=.1953*APPLD/PTX(2)/COS(PFRAD) 

T 1N( 2 ) = . 1 953*APPLD/PTN ( 2 ) /COS( PFRAD ) 

T 1 A ( 2 )  = . 1 95 3»APPLD/PTA ( 2 ) /COS ( PFRAD ) 

T 1 X ( 3 )  = . 1 95 3»APPLD/PTX ( 3 ) ZOOS ( PFRAD ) 

T 1 N ( 3 ) = . 1 953»APPLD/PTN ( 3 ) /COS ( PFRAD ) 

T 1 A ( 3 ) = . 1 953*APPLD/PTA ( 3 ) /COS ( PFRAD ) 
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T 1 X ( 4 ) = . 1 428»APPLD/PTX ( 4 ) /COS ( PFRAD ) 

T 1 N ( 4 )  = . 1 4 28»APPLD/PTN ( 4 ) /COS ( PFRAD ) 

T 1 A ( 4 ) = . 1 428»APPLD/ PTA ( 4 ) /COS ( PFRAD ) 

T 1 X ( 5 ) = . 1 428*APPLD/PTX ( 5 ) /COS ( PFRAD ) 

T 1 N ( 5 ) = . 1 428*APPLD/PTN ( 5 ) /COS ( PFRAD ) 

T 1 A ( 5 ) = . 1 428»APPLD/PTA ( 5 ) /COS ( PFRAD ) 

T 1 X ( 6 )  = . 055  4»APPLD/PTX ( 6 ) /COS ( PFRAD ) 

T 1 N ( 6 ) = . 0554»APPLD/PTN ( 6 ) /COS ( PFRAD ) 

T 1 A ( 6 ) = . 0554»APPLD/PTA ( 6 ) /COS ( PFRAD ) 
T1X(7)=.0554»APPLD/PTX(7)/C0S(PFRAD) 
n  N ( 7 )  = . 0554»APPLD/PTN ( 7 ) /COS ( PFRAD ) 

T 1 A ( 7 ) = . 0554»APPLD/PTA ( 7 )/C0S ( PFRAD ) 

CALCULATE  1ST  TERM  INSIDE  BRACKETS  IN  HEYWOODS  EQUATION 

DO  20  1=1,7 

T2EX ( I ) = 1 . 5*AEX ( I ) /EEX»*2 . 

T2EN ( I ) = 1 . 5*AEN ( I ) /EEN*»2 . 

T2EA ( I ) = 1 . 5*AEA ( I ) /EEA««2 . 

T2IX(I)=1.5»AIX(I)/EIX««2. 

T2IN(I)=1.5»AIN(I)/EIN«»2. 

T2IA( I )= 1 . 5»AIA( I )/EIA»»2. 

CALCULATE  2ND  TERM  INSIDE  BRACKETS  IN  HEYWOOD  EQUATION 

T3EX(I)=.45/(BEX(I)»EEX)»».5 
T3EN(I)=.45/(BEN(I)»EEN)»*.5 
T3E:A(I)  =  .45/(BEA(I)«EEA)«».5 
T3IX(I)  =  .45/(BIX(I)»EIX)«.5 
T3IN(I)=.45/(BIN(I)»EIN)»*.5 
T3IA(I)=.45/(BIA(I)«EIA)«».5 

CALCULATE  3RD  TERM  INSIDE  BRACKETS  IN  HEYWOOD  EQUATION 


T4EX(I)=.5/(2.*EEX) 

T4EN(I)=.5/(2.»EEN) 

T4EA(I)=.5/(2.»EEA) 

T4IX(I)=.5/(2.»EIX) 

T4IN(I)=.5/(2.«EIN) 

T4IA(I)=.5/(2.»EIA) 


/*  NOTE:  FOR  LOAD  NORMAL  TO  PF,  PHI=30 


CALCULATE  ROOT  STRESS  FORM  VALUES 


SBEX (I ) = KBEX»T 1 X (I ) » ( T2EX ( I ) +T3EX ( I ) +T4EX (I ) ) 
SBEN ( I ) = KBEN«T 1 N (I ) » ( T2EN (I ) +T3EN ( I )+T4EN ( I ) ) 
SHEA  ( I )  =KBEA»T  1 A ( I ) » ( T2EA ( I  )+T3E:A ( I  )+T4EA ( I ) ) 
SBIX(I)=KBIX»T1N(I)»(T2IX(I)+T3IX(I)+T4IX(I)) 
SBIN(I)=KBIN»T1X(I)»(T2IN(I)+T3IN(I)+T4IN(I)) 
SBIA(I)=KBIA»T1A(I)»(T2IA(I)+T3IA(I)+T4IA(I)) 
20  CONTINUE 


CALCULATE  COMBINED  TOTAL  SB  DUE  TO  PARABOLIC  LOAD  DISTRIBUTION 

SBEXT=SBEX( 1 )+SBEX(2)+SBEX(3)+SBEX(4)+SBEX(5)+SBEX(6)+SBEX(7) 
SBEXT=TLCF»SBEXT 

SBENT=SBEN( 1 )+SBEN(2)+SBEN(3)+SBEN(4)+SBEN(5)+SBEN(6)+SBEN(7) 
SBENT=TLCF»SBENT 

SBEAT=SBEA( 1 )+SBEA(2)+SBEA(3)+SBEA(4)+SBEA(5)+SBEA(6)+SBEA(7) 
SBEAT=TLCF*SBEAT 

SBIXT=SBIX( 1 )+SBIX(2)+SBIX(3)+SBIX(4)+SBIX(5)+SBIX(6)+SBIX(7) 
SBIXT=TLCF*SBIXT 

SBINT=SBIN( 1 )+SBIN(2)+SBIN(3)+SBIN(4)+SBIN(5)+SBIN(6)+SBIN(7) 
SBINT=TLCF»SBINT 

SBIAT=SBIA ( 1 ) +SBIA ( 2 )+SBIA ( 3 )+SBIA ( 4 ) +SBIA ( 5 )+SBIA ( 6 ) +SBIA ( 7 ) 

SBIAT=TLCF»SBIAT 

RETURN 


C  »»«  SUBROUTINE  TO  CALC  HYDROSTATIC  TENSION  &  PURE  SHEAR  ON  AN  »»» 
C  ***  OCTAHEDRAL  PLANE  »»• 

c 

SUBROUTINE  OCT 
$ INSERT  CBl.THRD 
$ INSERT  CB2.THRD 
$INSERT  CB3.THRD 

SOCTEX= ( 1 . / 3 . ) * ( SBEXT+STEX+SHEX ) 

SOCTEN= ( 1 . / 3 . ) * ( SBENT+STEN+SHEN ) 

SOCTEA  =  (1 .  /  3 . ) » (  SBEA  *  ■►STEA+SHEA ) 

SOCTIX=(1 ./3. )»(SBIXT+STIX) 

SOCTIN= ( 1 . / 3 . ) * ( SBINT+STIN ) 

SOCTI A= ( 1 . / 3 . ) » (SBIAT+STIA ) 

TOCTEX= (1 . / 3 . ) * ( SBEXT+STEX-SHEX ) 

TOCT£N= (1 . / 3 . ) » (SBENT+STEN-SHEN ) 

TOCTEAz ( 1 . / 3 . ) * ( SBEAT+STEA-SHEA ) 

TOCTI X=  ( 1 .  / 3 . )  * (SBIXT-t-STIX ) 

TOCTIN=(1./3.)»(SBINT+STIN) 

T0CT1A=( l./3.)»(SBIAT+STIA) 

RETURN 


c 

C  **  SUBROUTINE  TO  CALCULATE  STATIC  SAFETY  FACTORS  WRT  Y.S  &  T.S.  »»* 
C  **  AND  LOAD  CAPACITIES  *** 

c 

SUBROUTINE  STATSF 
$INSERT  CB1.THRD 
$INSERT  CB2.THRD 
$INSERT  CB3.THRD 

SF1YEX=EYS/S(1,1) 

SF1YEN=EYS/S(2,1) 

SF1YEA=EYS/S(3,1) 

SF1YIX=IYS/S(il,1) 

SF1YIN=IYS/S(5,1) 

SF1YIA=IYS/S(6,1) 

SF2YEX= . 577*EYS/S (7 , 1 ) 

SF2YEN= .577»EYS/S(8, 1 ) 

SF2YEA= . 577*EYS/S (9,1) 

SF2YIX= . 577*1 YS/S (10,1) 

SF2YIN=.577*IYS/S(11,1) 

SF2YIA= .577*IYS/S( 12, 1 ) 

SF1TEX=ETS/S(1,1) 

SF1TENsETS/S(2,l) 

SF1TEA=ETS/S(3,1) 

SF1TIX=ITS/S(4,1) 

SF1TIN=ITS/S(5,1) 

SF1TIA=ITS/S(6,1) 

SF2TEX=.577*ETS/S(7,1) 

SF2TEN=.577*ETS/S(8,1) 

SF2TEA2 . 577*ETS/S (9,1) 

SF2TIX=.577*ITS/S( 10,1) 

SF2TIN=.577*ITS/S(11,1) 

SF2TIA= .577»ITS/S( 12,1) 

SFYEX= AMIN 1 ( SF 1 YEX , SF2 YEX ) 

SFYENzAMIN 1 (SF 1 YEN ,SF2YEN ) 

SFYEA=AMIN 1 (SF 1 YEA , SF2YEA ) 

SFYIX=AMIN1(SF1YIX,SF2YIX) 

SFYIN=AMIN1(SF1YIN,SF2YIN) 

SFYIArAMIN 1 (SF lYIA ,SF2YIA ) 

SFTEX=AMIN 1 ( SF 1 TEX , SF2TEX ) 

SFTENrAMIN 1 ( SF 1 TEN , SF2TEN ) 

SFTEA= AMIN  1 ( SF 1 TEA , SF2TEA ) 

SFTIXrAMINI (SF1TIX,SF2TIX) 

SFTIN=AMIN1(SF1TIN,SF2TIN) 

SFTIA=AMIN1 (SF 1TIA ,SF2TIA ) 

SFYzAMIN 1 ( SFYEX , SFYEN , SFYEA , SFYIX , SFYIN , SFYIA ) 

SFT= AMIN  1 ( SFTEX , SFTEN , SFTEA , SFTIX , SFTIN , SFTIA ) 

CAPPLD ( 1 ) =LOAD ( 2 ) »SFYEX 
CAPPLD ( 2 ) =LOAD ( 2 ) »SFTEX 
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CAPPLD ( 3 ) =LOAD ( 2 ) »SFYEN 
CAPPED ( 4 ) =LOAD ( 2 ) »SFTEN 
CAPPLD ( 5 ) =LOAD ( 2 ) »SFYEA 
CAPPLD ( 6 ) =LOAD ( 2 ) *SFTEA 
CAPPLD ( 7 ) =LOAD ( 2 ) »SF YI X 
CAPPLD(8)=L0AD(2)»SFTIX 
CAPPLD ( 9 ) =LOAD ( 2 ) »SFYIN 
CAPPLD ( 10)=LOAD(2)»SFTIN 
CAPPLD ( 1 1 )=L0AD(2)»SFYIA 
CAPPLD (12) =LOAD ( 2 ) »SFTI A 

CAPPLDC 13)=AMIN1 (CAPPLD( 1 ) ,CAPPLD(3) ,CAPPLD(5) ,CAPPLD(7) ,CAPPLD(9) 
*,CAPPLD(11)) 

CAPPLD ( 1 4 ) = AMIN  1 ( CAPPLD ( 2 ) , CAPPLD ( 4 ) , CAPPLD ( 6 ) , CAPPLD ( 8 ) , CAPPLD ( 1 0 
»),CAPPLD(12)) 

LDYE=EYS/SSTRESS*LOAD ( 2 ) 

LDYI = I YS/SSTRESS«LOAD ( 2 ) 

LDTE=ETS/SSTRESS*LOAD ( 2 ) 

LDTI= ITS/SSTRESS»LOAD ( 2 ) 

RETURN 


o  o  o 


C 

C  »*»  SUBROUTINE  TO  GENERATE  NOTCH  SENSITIVITY  FACTORS  GIVEN  RADIUS  *•* 
C  »»»  AND  ULTIMATE  STRENGTH  OF  THE  MATERIAL  *** 

Q  »«««««« 

c 

SUBROUTINE  NOTCH 
REAL»4  ARH( 16,11) 

INTEGER»4  EC.IC 
$INSEHT  CB1.THRD 
$INSERT  CB2.THHD 
IINSERT  CB3.THHD 

DATA  ((ARRd.J),  1=1,16),  J=1, 11)/. 0025,  .005,  .0075,  .01,  .015,  .02,  .0 
*3,. 04,. 05,. 06,. 07,. 08,. 1,. 12,. 14,. 16,. 741,. 808,. 835,. 855,. 881,. 89M 
*,.91,. 92,. 920,. 932,. 938,. 944,. 949,. 954,. 957,. 963,. 680,. 756,. 785,. 8 
«10,. 840,. 855,. 876,. 890,. 9,. 908,. 915,. 922,. 929,. 935,. 94,. 945,. 62,. 7 
*03,. 735,. 764,. 798,. 815,. 843,. 861,. 873,. 883,. 892,. 901,. 908,. 917,. 92 
«2, .926, .559, .b51 , .685, .719, .757, .776, .809, .831 , .847, .859, .869, .879 
* , .886, .898, .904, .908, .494, .592, .632, .666, .706, .730, .765, .791 , .810, 
». 824,. 837,. 846,. 918,. 926,. 931,. 935,. 429,. 532,. 58,. 613,-656,. 684,. 7 
*24, .751 , .774, .79, .805, .814, .831, .843, .853, .86, .386, .468, .522, .553, 
*.599, .632, .678, .712, .735, .754, .766, .778, .798, .813, .833, .835, .356, . 
»42, .467, .496, .542, .574, .623, .659, .686, .704, .721 , .737, .758, .775, .78 
*5, .797 , .257, .347, .398, .434, .462, .519, .569, .607, .633, .655, .672, .688 
», .709, .726, .739, .752, .079, . 18, .247, .295, .366, .417, .491 , .546, .582, . 
»615,. 641,. 667,. 723,. 76,. 789,. 81/ 

SELECT  PROPER  NOTCH  SENSITIVITY  CURVES  BASED  ON  MAT'L  STRENGTHS 


IF(ETS.GT.200. 

)  EC: 

=2 

IF(ETS.GE. 180. 

.AND 

.ETS 

.LT 

.200.) 

EC=3 

IF(ETS.GE. I0O. 

.AND 

.ETS 

.LT 

.180.) 

EC=4 

IF(ETS.GE.140. 

.AND 

.ETS 

.LT 

.160.) 

EC=5 

IF(ETS.GE.120. 

.AND 

,ETS 

.LT 

,140.) 

EC=6 

IF(ETS.GE.100. 

.AND 

.ETS 

.LT 

.120.) 

EC=7 

IF(ETS.GE.80.. 

AND.] 

STS. 

LT. 

100.) 

EC=8 

IF(ETS.GE.6C. . 

AND.ETS., 

LT.i 

80.) 

EC=9 

IF(ETS.GE.50.. 

AND.ETS.i 

LT.i 

60.) 

EC=10 

IF (ITS. GT. 200. 

)  IC: 

=2 

IF(ITS.GE.180. 

.AND 

.ITS 

.LT 

.200.) 

IC=3 

IF(ITS.GE.160. 

.AND 

.ITS 

.LT 

.180.) 

IC=4 

IF(ITS.GE.140. 

.AND 

.ITS 

.LT 

.160.) 

IC=5 

IF(ITS.GE.120. 

.AND 

.ITS 

.LT 

.140.) 

IC=6 

IFdTS.GE.IOO. 

.AND 

.ITS 

.LT 

.120.) 

IC=7 

IFdTS.GE.80. . 

AND.: 

ITS., 

LT. 

100.) 

IC=8 
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IF(ITS.GE.60. .AND.ITS.lt. 80.)  IC=9 

IF(ITS.GE.50. .AND.ITS.LT.60.)  IC=10 

EVALUATE  NOTCH  SENSITIVITY  VALUES  (EXTERNAL  THREAD) 

IF ( ERR. LT. .0025)  THEN 
EQ= ( AHR ( 1 , EC ) / . 0025 ) *ERR 
GOTO  30 
ENDIF 

DO  10,  1=2,16 

IF(ERR.GE.ARR(I-1,1).AND.ERR.LT.ARR(I,1))  GOTO  20 
10  CONTINUE 

WRITE (1,»)  ’ERROR  IN  SUBROUTINE  NOTCH.’ 

STOP 

20  EQ=ARR(I-1,EC)+((ARR(I,EC)-ARR(I-1,EC))/(ARR(I,1)-ARR(I-1,1)))»(ER 
»R-ARR(I-1,1)) 

EVALUATE  NOTCH  SENSITIVITY  VALUES  (INTERNAL  THREAD) 

30  IF(IRR.LT..0025)  THEN 

IQ=(ARR( 1,IC)/.0025)»IRR 

GOTO  70 

ENDIF 

DO  ilO,  1=2,16 

IF(IRH.GE.ARR(I-1,1).AND.IRR.LT.ARR(I,1))  GOTO  60 
40  CONTINUE 

WRITE (1,*)  'ERROR  IN  SUBROUTINE  NOTCH.’ 

STOP 

60  IQ=ARH(I-1,IC)+((ARR(I,IC)-ARR(I-1,IC))/(ARR(I,1)-ARR(I-1,1)))»(IR 
»R-ARR(I-1,1)) 

70  RETURN 
END 


000000 


««*«»«««««««««««««««««»«»««««««««««««»«««««»«««««»»«««««*»«*««««»«»««« 

»**  SUBROUTINE  TO  CALCULATE  THEORECTICAL  STRESS  CONCENTRATION  FACT  »»* 
***  AND  MOD  FACTOR  DUE  TO  FATIGUE  STRESS  CONC  FACTOR  »»» 

SUBROUTINE  TSCF 
REAL»4  KTC(31,2) 

$INSERT  CB1.THRD 
$INSERT  CB2.THRD 
$INSERT  CB3.THRD 

DATA  ((KTC(I,J),I=1,31),J=1,2)/.01,.015,.02,.025,.03,.035,.04,.045 
05,. 05b,. 06,. 065,. 07,. 075,. 08,. 085,. 09,. 095,. 1,. 11,. 12,. 13,. 14,. 
» 15,. 16,. 17,. 18,. 19,. 2,. 25,. 3, 3., 2. 9, 2. 65, 2. 55, 2. 4, 2. 3, 2. 2, 2. 1,2. 05 
*, 2., 1.92, 1.9, 1.85, 1.8, 1.77, 1.75, 1.72, 1.7, 1.68, 1.63, 1.6, 1.57, 1.54,1 
*.51,1.48,1.46,1.45,1.43,1.41,1.3,1.26/ 

IF(ERR/EMN.LT..01)  THEN 
KNEX=3. 

GOTO  30 
ENDIF 

DO  10,  1=1,30 

IF(ERR/EMN.GE.KTC(I,1).AND.ERR/EMN.LT.KTC(I+1,1))  GOTO  20 
10  CONTINUE 
STOP 

20  KNEX=KTC(I,2) 

30  IF(IRR/IMN.LT..01)  THEN 
KNIX=3. 

GOTO  60 
ENDIF 

DO  40,  1=1,30 

IF(IRR/IMN.GE.KTC(I,1).AND.IRR/IMN.LT.KTC(I+1,1))  GOTO  50 
40  CONTINUE 
STOP 

50  KNIX=KTC(I,2) 

60  KQEX=1.+EQ*(KNEX-1.) 

KQEN=1.+EQ«(KNEX-1.) 

K0EA=1.+EQ»(KNEX-1.) 

KQIX=1.+IQ*(KNIX-1.) 

KQIN=1.+IQ»(KNIX-1.) 

KQIA=1.+IQ*(KNIX-1.) 

KPEX= ( KQEX- 1 . ) » ( . 1 2+ . 00  38* ( ETS- 1 00 . ) )+ 1 . 

KPEN=  (KQEN- 1 . ) » ( .  1 2-»- . 0038* (ETS- 100 . )  )+1 . 
KPEA=(KQEA-1.)»(.12+.0038*(ETS-100.))+1. 

KPIX=(KQIX-1 . )»( . 12+. 0038* (ITS- 100. ) )+1 . 

KPIN=(KQIN-1 . )*( . 12+. 0038* (ITS- 100. ) )+1 . 

KPIA=(KgiA-1 , )»( . 12+. 0038* (ITS- 100. ) )+1 . 

KFEX(1)=KPEX 

KFEN(1)=KPEN 

KFEA(1)=KPEA 

KFIX(1)=KPIX 
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KFINU  )-kP1N 
KFIA(1)=KP[A 

KFEX(P)-KPEX+(KQEX-KPb:X)*(AL0G1 0(3000. )-3. )/3. 
KEEN ( 2 ) =KPEN+ ( KQEN-KPEN ) » ( ALOG 1 0( 3000 . ) -3 • ) / 3  - 
KFEA ( 2 ) zKPE A+ ( KgEA-KPEA ) » ( ALOG 1 0 ( 3000 . )-3 . ) / 3 • 
KFIX(2)rKPIX+(KQIX-KPIX)»(ALOG10(3000.)-3.)/3. 
KFIN(2)=KPIN+(KQIN-KPIN)*(ALOG10(3000,)-3.)/3. 
KFIA(2)=i<PIA*-(KQIA-KPIA)»(ALOG10(3O00.)-3.)/3. 
KFEX  ( 3 )  =KPEX^-  ( KQEX-KPEX )  /  3 . 

KEEN ( 3 ) =KPEN+ ( KQEN-KPEN ) / 3 . 

KFEA  (  3 )  =KPEA+-  ( KQEA-KPEA )  /  3  • 

KFIX( ^)=KPlX+(KQIX-KPIX)/3. 

KFIN(3)=KPIN+(KQIN-KPIN)/3. 

KFIA(3)=KPIA+{KQIA-KPIA)/3. 

KFEX(4):=KPEX+-(KQEX-KPEX)«(ALOG10(40000.)-3.)/3. 

KFEN  ( 4 )  =  K PKN-4- ( KQEN-KPtilN )  *  ( ALOG  1 0(  40000 .  )-3 • )  /3  • 

KFEA(4)=KPEA4VKgEA-KPEA)*(ALOG10(40000.)-3.)/3. 

KFIX(4)=KPTX+(KgiX-KPIX)»(ALOG10(40000.)-3.)/3. 

KFIN(4)=KPIN+(KQIN-KPIN)»(ALOG10(40000.)-3.)/3. 

KFiA(4)=KPIA-t-(KQIA-KPIA)»(AL0G10(40000.)-3.)/3. 

KFEX  ( )  =KPEX+  ( KQEX-KPEX )  *2 .  /3  • 

KFEN ( 3 ) =KPEN+ ( KQEN-KPEN ) »2 . /3 . 

KFEA  ( ‘5 )  =KPEA+  ( KQEA-KPEA )  *2 .  /  3 . 
KFIX(L>)=KPIX+^KQ[X-KPIX)*2./3. 
KF[N(S)=KFIN4-(KQ1N-KPIN)*2./3. 
KFIA(5)-KFIA+{KQIA-KPIA)*2./3- 
KFEX(t,))-KOiL< 

KFEN ( 0 ) =KQEN 

KFEA(6)=KQEA 

KFIX(b):KQ[X 

KF[N(h)=KQIN 

KJ-'IA(o)rKQlA 

KFEX(7)::KQEX 

KFEN(7;=KQEN 

KFEA(7)=KQEA 

KFIX(7)=KQrX 

KFiN(7j=KQlN 

KFIA(7 j=KQlA 

HEl'iJRN 

i'.NIi 
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c 

C  ***  SUBROUTINE  TO  CALCULATE  FATIGUE  LIFE  SAFETY  FACTORS 

c 

C  SUBROUTINE  USED  NEWTON  METHOD  TO  FIND  INTERCEPT  OF  LIFE  LINE  AND 
C  SLOPE  LINE.  2ND  DEGREE  POLYNC»1IALS  ARE  USED  TO  DESCRIBE  DATA  CURVES 
C 

SUBROUTINE  FATIGUE 
REAL»4  C(7,3),SL(6) 

$ INSERT  CB1.THRD 
$INSERT  CBP.THRD 
$INSERT  CBB.THRD 

DATA  ((C(I,J),I=1,7),J=1,3)/83.6204,75.574,67.1299,61.0005, 

*55. 1154, 48. 4214, 46. 2044, -.648158, -.471915, -.314665, -.245179, 

*- . 24794 , - . 287679 ,-.31 3033 ,-.001 88942 , - . 00284203 , - . 0035522 , 

*- .00360573 , - . 0030357 1 ,- . 00205357 ,-.00156593/ 

DO  40  1=1,6  /*  MAT'L  CONDITIONS 

SL ( I ) =ATAN ( ALT ( I ) /MEAN (I ) ) 

DO  30  J= 1,7  /*  FATIGUE  LIFE  CURVES 

X1=((SL(I)-C(J,2))+((C(J,2)-SL(I))**2-4.»C(J,3)»C(J,1))*«.5)/(2.* 
*C(J,3)) 

X2=((SL(I)-C(J,2))-((C(J,2)-SL(I))**2-4.*C(J,3)»C(J,1))*».5)/(2.» 

*C(J,3)) 

X-AMAY1^X1  YP'i 

20  YVAL=(C(J,3)*X**2+C(J,2)*X+C(J,1)) 

IF(I.LE.3)  THEN 
YVAL=YVAL*ETS/100. 

ELSE 

YVAL=YVAL»ITS/100. 

ENDIF 

30  CONTINUE 
40  CONTINUE 
C  LOAD  CONSTANT 

CL=.9  /*  REVERSED  AXIAL  LOADS  W/O  BENDING 

C  SIZE  EFFECT 

CD=1.0  /»  AXIAL  LOAD 

C  SURFACE  FINISH  EFFECT 
C  MIRROR-POLISHED  FINISH 
IF(ESURF.EQ.I)  ECF=1. 

IF(ISURF.EQ.I)  ICF=1. 

C  FINE  GROUND  FINISH 

IF(ESURF.Eg.2.AND.ETS.LE. 170. )  ECF=.9 
IF(ISURF.EQ.2.AND.ITS.LE.170.)  ICF=.9 
IF(ESURF.EQ.2.AND.ETS.GT.170.)  ECF=-.002*ETS+1 .24 
IF ( ISURF . EQ . 2 . AND . ITS .GT . 170. )  ICF=- . 002*ITS+ 1 . 24 
C  MACHINED  FINISH 

IF(ESURF.EQ.3.AND.ETS.LE.200.)  ECF=-.0012«ETS+.87 
IF ( ISURF . EQ . 3 . AND . ITS . LE . 200 . )  ICF=- . 00 1 2*ITS+ . 87 
IF ( ESURF . EQ . 3 . AND . ETS .GT . 200 . )  ECF=- . 002*ETS+ 1 . 06 


IF(  IS'JHF  .KQ .  j .  hND  .  ITS .GT.200. )  ICF=-.002«ITS+1 .06 
HOT  HOLLED  FINISH 

IF ( ESURF . EQ . 4 . AND . ETS . LE . 1 40 . )  ECF=- . 0035*ETS+ . 95 
IF ( ISURF . EQ . 4 . AND . ITS . LE . 1 40 . )  ICF=- . 0035*ITS+ . 95 
IF(ESURF.EQ.4.AND.ETS.GT. 140.)  ECF=-.00l8»ETS+.72 
IF ( ISURF . EQ . 4 . AND . ITS . GT . 1 40 . )  ICF=- . 00 1 8*ITS+ . 72 
FORGED  FINISH 

IF( ESURF . EQ . 5 . AND . ETS . LE . 120. )  ECF=- . 0037*ETS+ . 77 
IF (ISURF . EQ . 5 . AND . ITS . LE . 1 20 . )  ICF=- . 0037* ITS+ . 77 
IF ( ESURF . EQ . 5 . AND . ETS . GT . 1 20 . )  ECF=- . 00 1 6»ETS+ . 567 
IF ( ISURF . EQ . 5 . AND . ITS . GT . 1 20 . )  ICFr- . 00 1 6*ITS+ . 567 
IF ( ESURF. EQ. 11  ESURFS= 'MIRROR  POLISH' 
IFdSURF.EQ.D  ISURFS= 'MIRROR  POLISH’ 

IF ( ESURF. EQ. 21  ESURFS='FINE  GROUND  ' 
IFdSURF.EQ.P)  ISURFSr'FINE  GROUND  ' 
IF(ESURF.EQ.3)  ESURFS= 'MACHINED  ' 

IF (ISURF. EQ. 3)  ISURFSr'MACHINED  ' 
IF(ESURF.EQ.4)  ESURFS='H0T  ROLLED  ' 

IF (ISURF. EQ. 4)  ISURFS='HOT  ROLLED  ' 
IF(ESURF.EQ.5)  ESURFS= ' FORGED  ' 

IF(ISURF.EQ.5)  ISURFS= ' FORGED  ' 

TEMPERATURE  EFFECT 

IFdEMP.GT.  160. )  CT=620./(460.+TEMP) 

IF(TEMP.LE.160.)  CT=1. 

RELIABILITY  FACTOR 
IF(HEL.EQ. .5)  CR=1. 

IF(REL.EQ. .9)  CR=.897 
IF(REL.EQ. .95)  CR=.868 
IFIREL.EQ. .99)  CR=.8l4 
IF(REL.Eg. .999)  CR=.753 

ESTIMATED  SAFETY  FACTORS  FOR  VARIOUS  FATIGUE  LIFE 
FSF( 1,1) =CD*ECF»CL*CT*CR*YVAL/ALT( 1 )/KFEX( 1 ) 

FSF(  1  ,2)-.:d*ecf*cl»ct«cr»yval/alt(i)/kfex(2) 

FSF  (  1 ,  ? ;  -.i:D*EC;F«CL»CT»CR*YVAL/ALT(  1  )/KFEX(3) 
r SF  ,  '  ,  i )  --Cli»ECF»CL»CT»CR»YVAL/ALT(  1  )/KFEX(4) 

FS.‘-’  (1,5)  --CU*ECF*CL*CT«CR*YVAL/ALT(  1  )/KFEX(5) 

FSF( 1 ,d)=i:D»ECF»CL»CT*CR*YVAL/ALT(1)/KFEX(6) 

FSF( 1 ,7)^CD*ECF»CL»CT*CR»YVAL/ALT(1)/KFEX(7) 

FSF(2, 1 )=CD*ECF»CL»CT»CR*YVAL/ALT(2)/KFEN(1) 
FSF(2,2)=c:)»E(.:f*CL»CT*CR»YVAL/ALT(2)/KFEN(2) 
FSF(2,3)=CD*ECF»CL»CT»CR»YVAL/ALT(2)/KFEN(3) 

FSF ( 2, 1 ) =CD*ECF«CL»CT»CR*YVAL/ALT(2)/KFEN(4) 

FSF(  2 , 5 )  =CD»ECF«CI,»CT»CR*YVAL/ALT(2)/KFEN(5) 

FSF ; 2 , 6 ) =GD*ECF»CL*CT»CR»YVAL/ALT( 2 )/KFEN ( 6 ) 

FSF ( 2 , / ) =CD*ECF»CL»CT»CR»YVAL/ALT(2) /KFEN ( 7 ) 

FSF(5, 1 )=CD»ECF»CL*CT»CR*YVAL/ALT(3)/KFEA(1) 

FSF(  ^,2 ) rGr)»ECF»CL«CT»CR*YVAL/ALT(3)/KFEA(2) 

FSF (3,3 )  ^2.Li*FCF*CL»CT*CR»YVAL/ALT( 3)/KFEA( 3) 

FSF(  3, 4  )  r:';rj*FCF«CL»CT»CR»YVAL/ALT(3)/KFEA(4) 

FSF(  3 , 5 )  rSL)*ECF*CL»CT»CR*YVAL/ALT(3)/KFEA(5) 


FSF ( 3 , 6 ) =CD»ECF*CL*CT»CR» YVAL/ALT ( 3 ) /KFEA ( 6 ) 

FSF ( 3 , 7 ) =CD»ECF*CL»CT»CR» YVAL/ALT ( 3 ) /KFEA ( 7 ) 

FSF ( 4 , 1 ) =CD»ICF*CL«CT«CR»yVAL/ALT ( 4 ) /KFIX( 1 ) 

FSF ( 4 , 2 ) =CD* ICF*CL*CT*CR» YVAL/ALT { 4 ) /KFIX ( 2 ) 

FSF ( 4 , 3 ) =CD*ICF*CL*CT»CR«YVAL/ALT( 4 ) /KFIX( 3 ) 

FSF ( 4 , 4 ) =CD*ICF»CL*CT»CR*YVAL/ALT( 4 ) /KFIX( 4 ) 

FSF  ( 4 , 5 ) =CD*ICF»a»CT»CR»YVAL/ALT(4  )/KFIX(5 ) 

FSF ( 4 , 6 ) =CD*ICF«CL*CT»CR»YVAL/ALT( 4 ) /KFIX( 6 ) 

FSF ( 4 , 7 ) =CD«ICF»CL»CT»CR«YVAL/ALT(4 )/KFIX(7 ) 

FSF(5, 1 )=CD»ICF»CL»CT»CR»YVAL/ALT(5)/KFIN( 1 ) 

FSF ( 5 , 2 ) =CD*ICF»CL*CT»Cfi» YVAL/ALT( 5 ) /KFIN ( 2 ) 

FSF  ( 5 , 3 )  =CD»ICF»a»CT*CR»  YVAL/ALT(  5 )  /KFIN  ( 3 ) 

FSF ( 5 , 4 ) =CD»ICF«CL«CT«CR*YVAL/ALT (5 ) /KFIN ( 4 ) 

FSF ( 5 , 5 ) =CD«ICF«CL»CT*CR»YVAL/ALT( 5 ) /KFIN ( 5 ) 

FSF ( 5 , 6 ) =CD»ICF*CL*CT»CR* YVAL/ALT(5 ) /KFIN ( 6 ) 

FSF ( 5 , 7 ) =CD« ICF*CL»CT»CR* YVAL/ALT ( 5 ) /KFIN ( 7 ) 

FSF(6, 1 )=CD»ICF»CL»CT*CR*YVAL/ALT(6)/KFIA( 1 ) 

FSF ( 6 , 2 ) =CD« ICF«CL*CT«  CR» YVAL/ ALT ( 6 ) /KFIA ( 2 ) 

FSF ( 6 , 3 ) =CD*ICF*CL»CT*CR»YVAL/ALT( 6 ) /KFIA ( 3 ) 

FSF ( 6 , 4 ) =CD»ICF*CL*CT«CR»YVAL/ALT( 6 ) /KFIA ( 4 ) 

FSF ( 6 , 5 ) =CD«ICF«CL«CT*CR»YVAL/ALT( 6 ) /KFIA ( 5 ) 

FSF ( 6 , 6 ) =CD»ICF»CL*CT*CR«YVAL/ALT( 6 )/KFIA ( 6 ) 

FSF ( 6 , 7 ) =CD« ICF«CL»CT«CR« YVAL/ALT ( 6 ) /KFIA ( 7 ) 

FSF(7, 1 )=AMIN1(FSF( 1,1) ,FSF(2, 1 ) ,FSF(3, 1 ) ,FSF(4, 1 ) ,FSF(5, 1 ) ,FSF(6, 
»1)) 

FSF(7,2)=AMIN1(FSF(1,2),FSF(2,2),FSF(3,2),FSF(4,2),FSF(5,2),FSF(6, 

»2)) 

FSF(7,3)=AMINUFSF(1,3),FSF(2,3),FSF(3,3),FSF(4,3),FSF(5,3),FSF(6, 

»3)) 

FSF(7,4)=AMIN1(FSF(1,4),FSF(2,4),FSF(3,4),FSF(4,4),FSF(5,M),FSF(6, 

»4)) 

FSF(7,5)=AMIN1(FSF(1,5),FSF(2,5),FSF(3,5),FSF(4,5),FSF(5,5),FSF(6, 

•5)) 

FSF(7,6)=AMIN1(FSF(1,6),FSF(2,6),FSF(3,6),FSF(4,6),FSF(5,6),FSF(6, 
*6) ) 

FSF(7,7)=AMIN1(FSF(1,7),FSF(2,7),FSF(3,7),FSF(4,7),FSF(5,7),FSF(6, 

•7)) 

C  ESTIMATED  ENDURANCE  LIMITS 

ESE=CD»ECF«a»CT»CR» .  5*CTS/KQEN 
ISE=CD»ICF»CL»CT»CR* . 5*ITS/KQIN 
RETURN 
END 
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c 

C  3UBHUUTli\c;  iU  PROVIDE  STATIC  +  FATIGUE  ANALYSIS  OUTPUT  *** 

Q  ««»«»»«)»««»«»»*»» »«««»«»*««*«««»»«««»«»»»«««*««*«««*««««««»«***»**«*** 

c 

SUBHUUTL.L:;  rlLliPl' 


$INSEHT  CB  1.in:uJ 
$INSEHT  CBP.i’riiiL) 

$INSEHT  Ci3J .  i'l-liiU 
$IN3EHr  SY5C0M>A$KEYo 
$INSERT  3YSCOM>KKYS . r 

CHAhACTEH*j4  T;;TH 
CBAi<ACTEri*d  .S'l’HB 

EXTERNAL  Ti'JOiJA 
CALL  fMUUA(:  1  V.'M  A  ,  INrS(4 ) ) 

XiL'TEd,*)  ’  ***  THHEADED  JOINT  STRESS  ANALYSIS  RESUL 

*['3  »»*i 


.VRIi'E(l,*)  ’  ' 

IF ( SERIES . EO . L )  LiEN 
WKITE(STtil,'lED.  5)'  )  UN 
LEN1  =  IN  rL!  NLEN.pACTnn  ,INTS(8) ) ) 

WRITE(S'l'i<j,  '  (EBUr  )  PITCH 
LENS::INTL(  wLENM (STH2,  INTS(8) ) ) 

LEN  j=  INTH  Ni>EN$A (SEH3TR ,  INTS(  10) ) ) 

i'STh-  'ThREAD  TYPE:  '//3TR1(  1  :LEN1 )//’-’ //SERSTR(  1  :LE:>I3)//’-'// 
»STR2( 1 :LEN2) 

LEN  4  =  r  NT  1 ,  ( NL.  :•  N I A  ( TSTR ,  I  NTS  ( 34 ) ) ) 

GOTO  10 
EN  JII' 

WHIIEISTRI , ' (Fb. 3) ' )  BMJDIA 
LEN 1  =  iNTi  .vNLHN$A(STH1 , INT3(8) ) ) 

NHrTE(STRE,'(IOd)  N 
LENE-lN'LTiNLEN.iiA’ STK2,  INr3(2) ) ) 

LEN  3  =  1  NTi,,  ( NLEi -E A  ( 3EH3TR ,  INTS (1 0 ) ) ) 

TSTR="niHEAl)  I'YPE;  '//STRU  1  :LEN1)//'-'//STR2(  1  :LEN2)//'  '// 
*SER3TRi 1 ;LEN3)//'-'//CLASS(1:2) 


LEN4=lNTLANLEN:tA(TSrH,  INrS(  34) ) ) 


IE ( Li'iN'T .  L  r .  vi )  I’H: 

•IN 

[  o  J  n 1  r  i  ‘  "  i 

rSTiU  1:1..EN4)//'  ' 

:.e'T''-e:t.  if  i 

I f' { 1  ,E.Ti .  1 , r .  v( ) 

20 

E  ID  IE 

WtU  1 1-'. (  1  ,  00  )  i'.  1  i  i'i ,  ' 

'File  NAME:  ' .FNAME 

40  EORMA'i  (A  LI,  1 UX  ,  A 1  1 ,  A20) 

WiuIiT,!,-'  'WAIVER  NO;  '.WVN.'SCN:  '  ,SCN , 'PART  NO:  ',PN 
■4  ;■  ■’■1.'.  .  '  i  -X.A'aAI  ,HX,A9,A10) 

WET  '  '.vOALYEi'  :  ’  ,METHD, '  DATE:  DATE, 'SUBCODE:  '.SUBCODE 

bO  nJREAT i.  A  1  ;  ,  A  >  . ,  ■•>: .  A’ , ,  A 1 0 , BX ,  AQ ,  A 1 0) 

WRIIrAl,*.  '  ' 

WRIIEi  ■  .  i'!  ;)  'Ei.ANK  ANGLE3(deg):  PF/CF  '  ,PFANG, '/' .CLANG, '  ROOT 
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»HADII(in);  clXT/INT  ',ERH,V',IRH 
100  FORMAT(A2b,F5.2,Al,F5.2, 1X,A27,F5.4,A1 ,F5.4) 

WRITE(1,140)  'HOLLOW  DIA(EXT) ( in) :  ' ,HDI A, 'SECTOR;  SECTOR ENGAG 

»EM£NT  LENGTH (in):  ' ,LE 
14C  FORMAT(A21,F6.3,aX,A8,Ft).3,2X,A23,F5.3) 

WHITE(1,160)  'EQUIV  O.D,(INT)(in):  '.ODIA.'LOAD  FACTOR:  ',TLCF,'AP 
*PLIED  PRELOAD(kip): ' ,L0AD(1) 

160  FORMAT(A21,F6.3,3X,A13,F5.3,iX,A21,F6. 1) 

WRITE(1,180)  'INTERNAL  PRESS(ksi):  '  ,PRES(  1 ) , 'TEMP(deg  F) ;  ',TS-1P, 
»'i-lAX  APPLIED  LOAD(kip); '  ,L0AD(2) 

130  FORMAT(A21,F6.3,3X,A13,I5,2X,A22,F6.1) 

WRITE(1,200)  'RELIABILITY(MEAN=0.5):  ’,REL,'MIN  APPLIED  LOAD(kip): 
»',L0AD(3) 

200  FORMAT ( 20X , A2  3 , F5 . 3 , 2X , A22 , F6 . 1 ) 

WRITEd,*)  ’  ' 

WRITE(1,»)  '  TENSILE  STRENGTH (ksi)  YIELD  STRENGTH (ksi 

*)  SURFACE  FINISH' 

WRITE (1,220)  ' EXTERNAL ' , ETS , EYS , ESURFS 
WRITE (1,220)  ' INTERNAL ' , ITS , I YS , ISURFS 
220  FORMAT(A8,14X,F5.1,l8X,F5.'l,12X,An) 

WRITEd,*)  '  ' 

IF(EJA.GT.EJX.OR.(EJA.LT.EJN.AND.EJA.NE.O.))  WRITE(1 

*  DEVIATING  MAJOR  DIA(in)  EXT  THRD  =  '.EJA, 
IF(EPA.GT.EPX.OR,(EPA.LT.EPN.AND.EPA.NE.O.))  WRITEd 

*  DEVIATING  PITCH  DIA(in)  EXT  THRD  =  ’ ,EPA, 
IF(EMA.GT.EMX.OR.(EMA.LT.EMN.AND.EMA.NE.O.))  WRITEd 

*  DEVIATING  MAJOR  DIA(in)  EXT  THRD  =  ' ,EMA, 
IFdJA.GT.IJX.OR.dJA.LT.IJN.AND.IJA.NE.O.))  WRITEd 

*  DEVIATING  MAJOR  DIA(in)  INT  THRD  =  ',IJA, 
IF(IPA.GT.IPX.OR.(IPA.LT.IPN.AND.IPA.NE.O.))  WRITEd 

*  DEVIATING  PITCH  DIA(in)  INT  THRD  =  ',IPA, 
IF(IMA.GT.IMX.0R.(IMA.LT.IMN.AND.II-1A.NE.0.))  WRITEd 

*  DEVIATING  MAJOR  DIA(in)  INT  THRD  =  ' ,IMA, 

240  F0RMAT(A53,F7.4,A19) 

WRITEd,*)  '  ' 

WRITEd, 242)  'SHEAR  CAP  (kip)  Y.S./T.S.:  EXT  =  '  ,LDYE, ’/' ,LDTE, ' 

«  INT=  ' ,LDYI,'/' ,LDTI 

242  F0RMAT(A33,F9.2,A1,F9.2,A8,F9.2,A1,F9.2) 

WRITEd,*)  '  ' 

WRITEd, '(A80)')  'mTL  LOAD  CAP(kip)  STATIC  SF  SAFETY  FACTOR 
*S  FOR  FATIGUE  CYCLE  RANGES  ’ 

WRITEd, '(A80)')  'COND  YS  TS  YS  TS  1*10E3  3*10E3 
*10E4  4*10E4  1*10E5  1»10E6  1*10E7’ 

WRITEd,*)  '  ' 

WRITEd, 260)  'EMAX  '  ,CAPPLD(1 ) , '/’ ,CAPPLD(2)  ,SFYEX, '/’ ,SFTEX, 
*FSF(1 , 1 ) ,FSF(1 ,2) ,FSF( 1 ,3) ,FSF( 1 ,4) ,FSF(1 ,5) ,FSFd ,6) ,FSF(1 ,7) 
WRITEd, 260)  'Ei^IN  '  ,CAPPLD(3) , ,CAPPLD(4)  ,SFYEN, '/' ,SFTEN, 
*FSF(2,1),FSF(2,2),FSF(2,3).FSF(2,4),FSF(2,5),FSF(2,6),FSF(2,7) 
WRITEd, 260)  'EACT  '  ,CAPPLD(5) , ,CAP?LD(6)  ,SFYEA, '/' ,SFTEA, 
*FSF(3,1),FSF(3,2),FSF(3,3),FSF(3,4),FSF(3,5),FSF(3,6),FSF(3,7) 


240)  '*«<>«**« 

240)  •««««««« 
«»«««««• 

240)  '»»***** 
««««»«»• 

240)  '*«*«*** 

*«««*«« I 

240)  '*«*»*»* 
«««««««> 

240)  '»•*»*** 
««««««*• 
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WKrrfc;(1,2bO)  'IMAX  ' ,CAPPLD(7), V’ ,CAPPLD(8),SFYIX,'/' ,SFTIX, 
*FSF(4,1),FSF(4,2),FSF(4,3),FSF(i4,il),FSF(4,5),FSF(4,6),FSF(il,7) 
WHITE(l,2bO)  'IMIN  ' ,CAPPLD(9) , ,CAPPLD( 10) ,SFYIN, V ,SFTIN, 
*FSF(5,1),FSF(b,2),FSF(5,3),FSF(5,4),FSF(5,5),FSF(5,6),FSF(5,7) 
WRITEC 1,260)  'lACT  ' ,CAPPLD( 1 1 ) , V’ ,CAPPLD( 12) ,SFYIA, V ,3FTIA, 
»FSF(6,l),FSF(b,2),FSF(6,3),FSF(6,4),FSF(6,5),FSF(6,6),FSF(;&j7) 
WRITEd, '(A5)' )  ’OVER-’ 

WRITEC 1,260)  ’  ALL  ’ ,CAPPLD( 13) , ,CAPPLD( 14) ,SFY, ’/’ ,SFT, 
*FSF(7,1),FSF(7,2),FSF(7,3),FSF(7,4),FSF(7,5),FSF(7,6),FSF(7,7) 

2o0  F0RMAT(A5,F6.1,A1,F6.1,1X,F5.2,A1,F5.2,1X,7(F7.4)) 

WRITEd,*)  '  ' 

WRITEd,*)  '  ’ 

CALL  TNOUA(’  PRESS  RETURN  FOR  PROGRAM  CONTROL  MENU’ ,INTS(42) ) 
READ (1,300)  CONT 
IFCCONT.NE.’  ’)  GOTO  400 
300  FORMAT(AI) 

400  CALL  TN0UA(:115614,INTS(4)) 

RETURN 

END 
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PRESS  RETURN  FOR  PROGRAM  CONTROL  MENU 


WAIVER  NO:  RIW0000  2.  SON#:  0000  3.  PART  NO:  10895620 

METHOD:  Stat ic+Fat igue  5.  DATE  MACH:  25JUL84  6.  SUBCODE:  EXAMPLE 

BASIC  DIA(ln):  2.1250  8.  THREADS/IN:  12.00  9.  CLASS:  3 
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